require './test.pl';
}
-use Config;
-
plan tests => 135;
$FS = ':';
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);