This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix RT #70862 by converting ERRSV to GvSVn() to ensure a non-NULL GvSV().
[perl5.git] / t / op / eval.t
index 071b2fa..4daf0b9 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-print "1..99\n";
+print "1..101\n";
 
 eval 'print "ok 1\n";';
 
@@ -557,3 +557,18 @@ $test++;
     print "ok $test - RT 63110\n";
     $test++;
 }
+
+curr_test($test);
+
+fresh_perl_is(<<'EOP', "ok\n", undef, 'RT #70862');
+$::{'@'}='';
+eval {};
+print "ok\n";
+EOP
+
+fresh_perl_is(<<'EOP', "ok\n", undef, 'variant of RT #70862');
+eval {
+    $::{'@'}='';
+};
+print "ok\n";
+EOP