diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-02-28 02:57:14 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-02-28 02:57:14 +0000 |
| commit | b39cdb36c806b384ddc21ca48818296c9ba21ff0 (patch) | |
| tree | cd7363ca1389472c57096d7cbb949d2bbca76901 /t/op/split.t | |
| parent | 80601f726a5a19bcf2b74279a3d4464723c257cb (diff) | |
| download | perl-b39cdb36c806b384ddc21ca48818296c9ba21ff0.tar.gz | |
Minor test updates to accomodate new subprocess invocation
p4raw-id: //depot/vmsperl@5304
Diffstat (limited to 't/op/split.t')
| -rwxr-xr-x | t/op/split.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/op/split.t b/t/op/split.t index 042f151f33..48e64e117d 100755 --- a/t/op/split.t +++ b/t/op/split.t @@ -48,10 +48,8 @@ print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n"; # Does assignment to a list imply split to one more field than that? if ($^O eq 'MSWin32') { $foo = `.\\perl -D1024 -e "(\$a,\$b) = split;" 2>&1` } +elsif ($^O eq 'VMS') { $foo = `./perl "-D1024" -e "(\$a,\$b) = split;"` } 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 = (VOID|IV\(3\))/ ? "ok 11\n" : "not ok 11\n"; # Can we say how many fields to split to when assigning to a list? |