diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-01-09 11:46:41 -0600 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-01-10 17:07:03 +0000 |
| commit | e3a4ba2609bab5af03e410e3d8a38f237348f922 (patch) | |
| tree | 8736183e2e257e721117d9a3adab8d23d5f18052 | |
| parent | 846e3505506e5ca6188404fe694911fd9e543b20 (diff) | |
| download | perl-e3a4ba2609bab5af03e410e3d8a38f237348f922.tar.gz | |
t/op/split.t #11 nit on VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <41E1C261.5020100@mac.com>
Date: Sun, 09 Jan 2005 17:46:41 -0600
p4raw-id: //depot/perl@23779
| -rwxr-xr-x | t/op/split.t | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/t/op/split.t b/t/op/split.t index 31a2f51bf9..d2deff38d3 100755 --- a/t/op/split.t +++ b/t/op/split.t @@ -50,12 +50,8 @@ $_ = 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 -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/); +$foo = runperl( switches => ['-Dt'], stderr => 1, prog => '($a,$b)=split;' ); +ok($foo =~ /DEBUGGING/ || $foo =~ /const\n?\Q(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); |