From 36daacbf16af0fc5c17305125bd7b7f77f173066 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Thu, 13 Apr 2006 17:16:41 +0000 Subject: [PATCH] disable 'split /(?{ split "" })/' test until recursive split is fixed p4raw-id: //depot/perl@27793 --- t/op/pat.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/t/op/pat.t b/t/op/pat.t index 44070b4ad1..0b5c1a50af 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -3181,7 +3181,10 @@ ok("bbbbac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]"); } { - split /(?{ split "" })/, "abc"; + # XXX DAPM 13-Apr-06. Recursive split is still broken. It's only luck it + # hasn't been crashing. Disable this test until it is fixed properly. + # XXX also check what it returns rather than just doing ok(1,...) + # split /(?{ split "" })/, "abc"; ok(1,'cache_re & "(?{": it dumps core in 5.6.1 & 5.8.0'); } -- 2.34.1