Handle $@ being assigned a read-only value (without error or busting the stack).

Discovered whilst investigating RT #70862.

1 files changed, 14 insertions, 1 deletions

diff --git a/t/op/eval.t b/t/op/eval.t
index 4daf0b96e1..58a6334b27 100644
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-print "1..101\n";
+print "1..103\n";
 
 eval 'print "ok 1\n";';
 
@@ -572,3 +572,16 @@ eval {
 };
 print "ok\n";
 EOP
+
+fresh_perl_is(<<'EOP', "ok\n", undef, 'related to RT #70862');
+$::{'@'}=\3;
+eval {};
+print "ok\n";
+EOP
+
+fresh_perl_is(<<'EOP', "ok\n", undef, 'related to RT #70862');
+eval {
+    $::{'@'}=\3;
+};
+print "ok\n";
+EOP