Fix [RT#66098] -- stricter checking on SvIVX exposed a lack of SvIOK check

[perl5.git] / t / op / split.t

diff --git a/t/op/split.t b/t/op/split.t
index b846f5e..b3a9741 100755 (executable)
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -6,9 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-use Config;
-
-plan tests => 135;
+plan tests => 136;
 
 $FS = ':';
 
@@ -52,15 +50,8 @@ $_ = join(':', split(/:/,'1:2:3:4:5:6:::', 999));
 is($_ , '1:2:3:4:5:6:::');
 
 # Does assignment to a list imply split to one more field than that?
-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/);
-    }
-}
+$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);
@@ -367,3 +358,9 @@ ok(@ary == 3 &&
     is($s[2]," XYZ");
     is(join(':',@s), join(':',@r));
 }
+
+{
+    use constant BANG => {};
+    () = split m/,/, "", BANG;
+    ok(1);
+}