1 files changed, 20 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/test-w-statement-1 b/gnu/usr.bin/perl/lib/perl5db/t/test-w-statement-1
new file mode 100644
index 00000000000..bfd5ccd7d80
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/perl5db/t/test-w-statement-1
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use vars qw($foo);
+
+$foo = 1;
+
+print "Hello\n";
+
+for my $idx (map { $_ * 10 } 1 .. 10)
+{
+    if ($idx > 17)
+    {
+        $foo = 2;
+        print "Baz\n";
+    }
+}
+