diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-17 18:40:17 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-17 18:40:17 +0000 |
commit | b120866668b54632114fd852c955cd9bc19ffb31 (patch) | |
tree | 589af49f88a08446aab283ff48ce1cb5fa68844f /t/op | |
parent | 0f0995aead468478b4762a509b5b43b9cae39825 (diff) | |
parent | bfe546ed7c7a66739ffa94d9408047bb87271632 (diff) | |
download | perl-b120866668b54632114fd852c955cd9bc19ffb31.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@5123
Diffstat (limited to 't/op')
-rwxr-xr-x | t/op/split.t | 2 |
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); |