From 6cbc0cd1d96dba8bcda440e8ed6dde3e7b3a050b Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 10 Aug 2003 02:35:30 +0100
Subject: Re: [perl #23265] Nested anonymous subs Message-ID:
 <20030810003530.GB6547@fdgroup.com>

p4raw-id: //depot/perl@20597
---
 t/op/closure.t | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

(limited to 't')

diff --git a/t/op/closure.t b/t/op/closure.t
index dd7b50cdef..763e2a74dc 100755
--- a/t/op/closure.t
+++ b/t/op/closure.t
@@ -13,7 +13,7 @@ BEGIN {
 
 use Config;
 
-print "1..184\n";
+print "1..185\n";
 
 my $test = 1;
 sub test (&) {
@@ -641,4 +641,27 @@ f16302();
     test { $a{7}->()->() + $a{11}->()->() == 18 };
 }
 
+# bugid #23265 - this used to coredump during destruction of PL_maincv
+# and its children
+
+require './test.pl';
+
+my $got = runperl(
+    prog => q[
+	print
+	    sub {$_[0]->(@_)} -> (
+		sub {
+		    $_[1]
+			?  $_[0]->($_[0], $_[1] - 1) .  sub {"x"}->()
+			: "y"
+		},   
+		2
+	    )
+	    , "\n"
+	;            
+    
+    ],
+    stderr => 1
+);
+test { $got eq "yxx\n" };
 
-- 
cgit v1.2.1