xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/gh-17661b (revision 256a93a44f36679bee503f12e49566c2183f6181)
1*256a93a4Safresh1#!perl
2*256a93a4Safresh1# test code for "l $var" where $var is lexical
3*256a93a4Safresh1sub foo {
4*256a93a4Safresh1    print "Hello\n";
5*256a93a4Safresh1}
6*256a93a4Safresh1
7*256a93a4Safresh1sub bar {
8*256a93a4Safresh1    print "Goodbye\n";
9*256a93a4Safresh1}
10*256a93a4Safresh1
11*256a93a4Safresh1my $x = \&foo;
12*256a93a4Safresh1our $y = \&bar;
13*256a93a4Safresh1$DB::single = 1;
14*256a93a4Safresh1my $z = 1;
15