1 files changed, 27 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-r-statement b/gnu/usr.bin/perl/lib/perl5db/t/test-r-statement
new file mode 100644
index 00000000000..f8c7bf5555c
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-r-statement
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $var = "Test";
+
+sub mysub
+{
+    my $flag = 1;
+
+    $flag = 0;
+
+    print "Foo\n";
+
+    if ($flag)
+    {
+        print "Bar\n";
+    }
+
+    return;
+}
+
+mysub();
+
+$var .= "More";
+