diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 06:44:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 06:44:42 +0000 |
| commit | f0963acb6df75767aaf57c94e1e7509003ff1543 (patch) | |
| tree | caab5a83cad07f6fe3efa85385f4bc996ab12923 /t/op/split.t | |
| parent | c15a5d5de69fd60182fabfe5d4c4aba46fd1ca8a (diff) | |
| download | perl-f0963acb6df75767aaf57c94e1e7509003ff1543.tar.gz | |
consolidated VMS patches (from Craig A. Berry
<craig.berry@metamorgs.com>); Glob.pm patch modified to use
$DEFAULT_FLAGS, and iff no flags were supplied
p4raw-id: //depot/perl@5397
Diffstat (limited to 't/op/split.t')
| -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 48e64e117d..8b9f4ad2f9 100755 --- a/t/op/split.t +++ b/t/op/split.t @@ -48,7 +48,7 @@ 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;"` } +elsif ($^O eq 'VMS') { $foo = `./perl "-D1024" -e "(\$a,\$b) = split;" 2>&1` } else { $foo = `./perl -D1024 -e '(\$a,\$b) = split;' 2>&1` } print $foo =~ /DEBUGGING/ || $foo =~ /SV = (VOID|IV\(3\))/ ? "ok 11\n" : "not ok 11\n"; |