diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-09 11:48:37 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-09 11:48:37 +0000 |
| commit | 77d32bb7b5e051854298049d5aa8bdccf2df099a (patch) | |
| tree | 4ae5eca064ffdfb91e8c7c0f1ea13c6fdba81353 /t | |
| parent | 58e33a9028ebaa2c94f6b7cf202a415b19dab366 (diff) | |
| download | perl-77d32bb7b5e051854298049d5aa8bdccf2df099a.tar.gz | |
... and add a test case for bug #20798
p4raw-id: //depot/perl@18862
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/eval.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/eval.t b/t/op/eval.t index 8e8f69c0b8..a6d78c4dbd 100755 --- a/t/op/eval.t +++ b/t/op/eval.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -print "1..87\n"; +print "1..88\n"; eval 'print "ok 1\n";'; @@ -419,3 +419,6 @@ $test++; $test++; } } + +sub Foo {} print Foo(eval {}); +print "ok ",$test++," - #20798 (used to dump core)\n"; |