summaryrefslogtreecommitdiff
path: root/t/op
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-02-17 18:40:17 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-02-17 18:40:17 +0000
commitb120866668b54632114fd852c955cd9bc19ffb31 (patch)
tree589af49f88a08446aab283ff48ce1cb5fa68844f /t/op
parent0f0995aead468478b4762a509b5b43b9cae39825 (diff)
parentbfe546ed7c7a66739ffa94d9408047bb87271632 (diff)
downloadperl-b120866668b54632114fd852c955cd9bc19ffb31.tar.gz
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@5123
Diffstat (limited to 't/op')
-rwxr-xr-xt/op/split.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/split.t b/t/op/split.t
index 7f0accea5e..042f151f33 100755
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -52,7 +52,7 @@ else { $foo = `./perl -D1024 -e '(\$a,\$b) = split;' 2>&1` }
if ($foo =~ /DCL-W-NOCOMD/) {
$foo = `\$ mcr sys\$disk:[]perl. "-D1024" -e "(\$a,\$b) = split;"`;
}
-print $foo =~ /DEBUGGING/ || $foo =~ /SV = IV\(3\)/ ? "ok 11\n" : "not ok 11\n";
+print $foo =~ /DEBUGGING/ || $foo =~ /SV = (VOID|IV\(3\))/ ? "ok 11\n" : "not ok 11\n";
# Can we say how many fields to split to when assigning to a list?
($a,$b) = split(' ','1 2 3 4 5 6', 2);