diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-17 18:01:14 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-17 18:01:14 +0000 |
commit | bfe546ed7c7a66739ffa94d9408047bb87271632 (patch) | |
tree | 7557f6570078ce8bcdd0fe397450062d8c6b9306 | |
parent | 2ef256fcc9c788003ff3d458ced8f78234e5a628 (diff) | |
download | perl-bfe546ed7c7a66739ffa94d9408047bb87271632.tar.gz |
fix test that depends on op_dump() output
p4raw-id: //depot/perl@5122
-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); |