diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-30 12:54:02 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-30 12:54:02 +0000 |
| commit | 1c03aa9b6a4a4ec2b3bf09d02bd65223657089cf (patch) | |
| tree | c50fa2ec862636d730b6e5e2ed5668ce7d483a73 /t/comp | |
| parent | a8ef040587cb064a47c2ec9b30ddc38817341240 (diff) | |
| download | perl-1c03aa9b6a4a4ec2b3bf09d02bd65223657089cf.tar.gz | |
Add a regression test for bug #24762
p4raw-id: //depot/perl@22003
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/parser.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t index c68f7ab5aa..730f187cec 100644 --- a/t/comp/parser.t +++ b/t/comp/parser.t @@ -9,7 +9,7 @@ BEGIN { } require "./test.pl"; -plan( tests => 41 ); +plan( tests => 42 ); eval '%@x=0;'; like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' ); @@ -135,3 +135,9 @@ EOF '-F calls the F function' ); } + +# Bug #24762 +{ + eval q{ *foo{CODE} ? 1 : 0 }; + is( $@, '', "glob subscript in conditional" ); +} |