Change 34086: Skip one test that was failing with DEBUGGING and threads,

[Rafael Garcia-Suarez]

Change 34086 by [EMAIL PROTECTED] on 2008/06/25 13:14:08

        Skip one test that was failing with DEBUGGING and threads,
        because after change #34085 the IV value of the OP_CONST
        isn't dumped anymore.

Affected files ...

... //depot/perl/t/op/split.t#39 edit

Differences ...

==== //depot/perl/t/op/split.t#39 (xtext) ====
Index: perl/t/op/split.t
--- perl/t/op/split.t#38~29975~ 2007-01-25 09:22:40.000000000 -0800
+++ perl/t/op/split.t   2008-06-25 06:14:08.000000000 -0700
@@ -6,6 +6,8 @@
     require './test.pl';
 }
 
+use Config;
+
 plan tests => 135;
 
 $FS = ':';
@@ -50,8 +52,15 @@
 is($_ , '1:2:3:4:5:6:::');
 
 # Does assignment to a list imply split to one more field than that?
-$foo = runperl( switches => ['-Dt'], stderr => 1, prog => '($a,$b)=split;' );
-ok($foo =~ /DEBUGGING/ || $foo =~ /const\n?\Q(IV(3))\E/);
+SKIP: {
+    if ($Config{useithreads}) {
+       skip("No IV value dump with threads", 1);
+    }
+    else {
+       $foo = runperl( switches => ['-Dt'], stderr => 1, prog => 
'($a,$b)=split;' );
+       ok($foo =~ /DEBUGGING/ || $foo =~ /const\n?\Q(IV(3))\E/);
+    }
+}
 
 # Can we say how many fields to split to when assigning to a list?
 ($a,$b) = split(' ','1 2 3 4 5 6', 2);
End of Patch.