disable 'split /(?{ split "" })/' test until recursive split is fixed

p4raw-id: //depot/perl@27793

1 files changed, 4 insertions, 1 deletions

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');
 }