diff options
Diffstat (limited to 't/pragma/strict-vars')
| -rw-r--r-- | t/pragma/strict-vars | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/pragma/strict-vars b/t/pragma/strict-vars index 42107fa8e1..3e3e0e3a35 100644 --- a/t/pragma/strict-vars +++ b/t/pragma/strict-vars @@ -165,6 +165,7 @@ print STDERR $@; $joe = 1 ; EXPECT Global symbol "$joe" requires explicit package name at - line 5. +Global symbol "$joe" requires explicit package name at - line 8. Execution of - aborted due to compilation errors. ######## @@ -221,3 +222,18 @@ $joe = 1 ; EXPECT Global symbol "$joe" requires explicit package name at - line 8. Execution of - aborted due to compilation errors. +######## + +# Check if multiple evals produce same errors +use strict 'vars'; +my $ret = eval q{ print $x; }; +print $@; +print "ok 1\n" unless defined $ret; +$ret = eval q{ print $x; }; +print $@; +print "ok 2\n" unless defined $ret; +EXPECT +Global symbol "$x" requires explicit package name at (eval 1) line 1. +ok 1 +Global symbol "$x" requires explicit package name at (eval 2) line 1. +ok 2 |