diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-02-10 18:13:29 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2003-02-10 18:13:29 +0000 |
| commit | 437fd2104756c25dedf68c6e31cd29ecbf0e2569 (patch) | |
| tree | cc9280913209de43a4aae33f74a32efe0c714122 /t/comp | |
| parent | 9be22fdc5e6401d34a392a30fcc1c5fb0eb6723f (diff) | |
| download | perl-437fd2104756c25dedf68c6e31cd29ecbf0e2569.tar.gz | |
Re: [perl #20716] [FIX] scope error with brackets
Message-id: <20030210174858.GA872@ratsnest.hole>
p4raw-id: //depot/perl@18687
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/parser.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t index 40ae5f18cf..88f933c7a6 100644 --- a/t/comp/parser.t +++ b/t/comp/parser.t @@ -9,7 +9,7 @@ BEGIN { } require "./test.pl"; -plan( tests => 12 ); +plan( tests => 15 ); eval '%@x=0;'; like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' ); @@ -66,3 +66,11 @@ eval { }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} }; is( $@, '', 'PL_lex_brackstack' ); + +{ + undef $a; + undef @b; + my $a="a"; is("${a}{", "a{", "scope error #20716"); + my $a="a"; is("${a}[", "a[", "scope error #20716"); + my @b=("b"); is("@{b}{", "b{", "scope error #20716"); +} |