xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/test-w-statement-1 (revision 91f110e064cd7c194e59e019b83bb7496c1c84d4) 
1*91f110e0Safresh1#!/usr/bin/perl
2*91f110e0Safresh1
3*91f110e0Safresh1use strict;
4*91f110e0Safresh1use warnings;
5*91f110e0Safresh1
6*91f110e0Safresh1use vars qw($foo);
7*91f110e0Safresh1
8*91f110e0Safresh1$foo = 1;
9*91f110e0Safresh1
10*91f110e0Safresh1print "Hello\n";
11*91f110e0Safresh1
12*91f110e0Safresh1for my $idx (map { $_ * 10 } 1 .. 10)
13*91f110e0Safresh1{
14*91f110e0Safresh1    if ($idx > 17)
15*91f110e0Safresh1    {
16*91f110e0Safresh1        $foo = 2;
17*91f110e0Safresh1        print "Baz\n";
18*91f110e0Safresh1    }
19*91f110e0Safresh1}
20*91f110e0Safresh1
21