add test that eval undef clears $@

p4raw-id: //depot/perl@29194

1 files changed, 10 insertions, 1 deletions

diff --git a/t/op/eval.t b/t/op/eval.t
index d64504c1ee..7ab73ed5d6 100755
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..92\n";
+print "1..93\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++;
+}
+