diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-20 15:38:10 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-20 15:38:10 +0000 |
| commit | e550c049a174d317e4e17172c9276b8aca255fd8 (patch) | |
| tree | f608212e4d268e34c2578639bf1c5d0714f0dfff /t | |
| parent | 2b6e98cb0bc81ffc31a6d3baf33465260376f405 (diff) | |
| download | perl-e550c049a174d317e4e17172c9276b8aca255fd8.tar.gz | |
remove a split test's dependence on -Dx output
(needed after change #22343)
p4raw-link: @22343 on //depot/perl: b6a15bc5202dd52395ce566b43e1490d38dc2141
p4raw-id: //depot/perl@22351
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/split.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/op/split.t b/t/op/split.t index 17ab1e6a37..957da24950 100755 --- a/t/op/split.t +++ b/t/op/split.t @@ -50,12 +50,12 @@ $_ = join(':', split(/:/,'1:2:3:4:5:6:::', 999)); is($_ , '1:2:3:4:5:6:::'); # 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 'NetWare') { $foo = `perl -D1024 -e "(\$a,\$b) = split;" 2>&1` } -elsif ($^O eq 'VMS') { $foo = `./perl "-D1024" -e "(\$a,\$b) = split;" 2>&1` } -elsif ($^O eq 'MacOS'){ $foo = `$^X "-D1024" -e "(\$a,\$b) = split;"` } -else { $foo = `./perl -D1024 -e '(\$a,\$b) = split;' 2>&1` } -ok($foo =~ /DEBUGGING/ || $foo =~ /SV = (VOID|IV\(3\))/); +if ($^O eq 'MSWin32') { $foo = `.\\perl -Dt -e "(\$a,\$b) = split;" 2>&1` } +elsif ($^O eq 'NetWare') { $foo = `perl -Dt -e "(\$a,\$b) = split;" 2>&1` } +elsif ($^O eq 'VMS') { $foo = `./perl "-Dt" -e "(\$a,\$b) = split;" 2>&1` } +elsif ($^O eq 'MacOS'){ $foo = `$^X "-Dt" -e "(\$a,\$b) = split;"` } +else { $foo = `./perl -Dt -e '(\$a,\$b) = split;' 2>&1` } +ok($foo =~ /DEBUGGING/ || $foo =~ /\Qconst(IV(3))\E/); # Can we say how many fields to split to when assigning to a list? ($a,$b) = split(' ','1 2 3 4 5 6', 2); |