diff options
| author | Robin Houston <robin@cpan.org> | 2001-05-06 15:36:56 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-06 13:49:31 +0000 |
| commit | ce4e655dc29e27029ad1ce2f03223f9feef69025 (patch) | |
| tree | 859770dc740c59805846d488f45890741e5f91e3 /t | |
| parent | b16cf6df0ad46b829f1ecf5de2fff8df6f195f73 (diff) | |
| download | perl-ce4e655dc29e27029ad1ce2f03223f9feef69025.tar.gz | |
scoping
Message-ID: <20010506143656.A4006@penderel>
p4raw-id: //depot/perl@10007
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/b-deparse.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/lib/b-deparse.t b/t/lib/b-deparse.t index 59f8cbfb4f..048ce31eef 100644 --- a/t/lib/b-deparse.t +++ b/t/lib/b-deparse.t @@ -15,7 +15,7 @@ use warnings; use strict; use Config; -print "1..12\n"; +print "1..14\n"; use B::Deparse; my $deparse = B::Deparse->new() or print "not "; @@ -166,3 +166,11 @@ $test /= 2 if ++$test; continue { 123; } +#### +# 9 +my $x; +print $main::x; +#### +# 10 +my @x; +print $main::x[1]; |