projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0eb20fa
)
add test that eval undef clears $@
author
Dave Mitchell
<davem@fdisolutions.com>
Thu, 2 Nov 2006 17:36:33 +0000
(17:36 +0000)
committer
Dave Mitchell
<davem@fdisolutions.com>
Thu, 2 Nov 2006 17:36:33 +0000
(17:36 +0000)
p4raw-id: //depot/perl@29194
t/op/eval.t
patch
|
blob
|
history
diff --git
a/t/op/eval.t
b/t/op/eval.t
index
d64504c
..
7ab73ed
100755
(executable)
--- a/
t/op/eval.t
+++ b/
t/op/eval.t
@@
-5,7
+5,7
@@
BEGIN {
@INC = '../lib';
}
-print "1..9
2
\n";
+print "1..9
3
\n";
eval 'print "ok 1\n";';
@@
-449,3
+449,12
@@
stderr => 1);
print "not " unless $got eq "ok\n";
print "ok $test - eval and last\n"; $test++;
+# eval undef should be the same as eval "" barring any warnings
+
+{
+ local $@ = "foo";
+ eval undef;
+ print "not " unless $@ eq "";
+ print "ok $test # eval unef \n"; $test++;
+}
+