X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2Fthreads%2Ft%2Fthread.t;h=0cc59dc6280880ff7c61a6652138d9086ab1c53f;hb=863e9b4aa72b7b080129007c00c2b1efa2a78bca;hp=9a2a097d558bd6ce0e1724d4128273d53c7376cc;hpb=636e63cb2d86040c1b02edfaea110c6993a0b8de;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/threads/t/thread.t b/ext/threads/t/thread.t
index 9a2a097..0cc59dc 100644
--- a/ext/threads/t/thread.t
+++ b/ext/threads/t/thread.t
@@ -30,7 +30,7 @@ BEGIN {
     }
 
     $| = 1;
-    print("1..33\n");   ### Number of tests that will be run ###
+    print("1..34\n");   ### Number of tests that will be run ###
 };
 
 print("ok 1 - Loaded\n");
@@ -194,6 +194,14 @@ fresh_perl_is(<<'EOI', 'ok', { }, 'thread sub via $_[0]');
     print 'ok';
 EOI
 
+# [perl #45053]  Memory corruption from eval return in void context
+fresh_perl_is(<<'EOI', 'ok', { }, 'void eval return');
+    use threads;
+    threads->create(sub { eval '1' });
+    $_->join() for threads->list;
+    print 'ok';
+EOI
+
 # test CLONE_SKIP() functionality
 if ($] >= 5.008007) {
     my %c : shared;