[perl #130815] fix ck_return null-pointer deref on malformed code

1 files changed, 6 insertions, 0 deletions

diff --git a/t/comp/parser.t b/t/comp/parser.t
index 8be973bfff..570df2e4d5 100644
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -598,6 +598,12 @@ is $@, "", 'substr keys assignment';
     like $@, qr/Missing right curly or square bracket/, 'RT #130311';
 }
 
+# RT #130815: crash in ck_return for malformed code
+{
+    eval 'm(@{if(0){sub d{]]])}return';
+    like $@, qr/^syntax error at \(eval \d+\) line 1, near "\{\]"/,
+        'RT #130815: null pointer deref';
+}
 
 # Add new tests HERE (above this line)