diff options
| author | Radu Greab <radu@netsoft.ro> | 2002-05-06 07:23:10 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-06 01:09:24 +0000 |
| commit | fa326138e0db34ae4a0161fbe7c05eb9a9367825 (patch) | |
| tree | 4f3ce4e083fca91e5f8551ae442b0a33aec802c9 /t | |
| parent | 43a739c2bdff3ef2c4add9ac59ee447ec3f7849e (diff) | |
| download | perl-fa326138e0db34ae4a0161fbe7c05eb9a9367825.tar.gz | |
Re: [ID 20020504.006] $s=`command` fails if $/=\integer
Message-ID: <15573.56062.264379.981864@ix.netsoft.ro>
p4raw-id: //depot/perl@16421
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/exec.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/exec.t b/t/op/exec.t index 3edbc6ac62..5f110be32e 100755 --- a/t/op/exec.t +++ b/t/op/exec.t @@ -19,7 +19,7 @@ my $Is_Win32 = $^O eq 'MSWin32'; skip_all("Tests mostly usesless on MacOS") if $^O eq 'MacOS'; -plan(tests => 20); +plan(tests => 21); my $Perl = which_perl(); @@ -74,6 +74,12 @@ is( $echo_out, "ok\n", 'piped echo emulation'); is( scalar `$Perl -le "print 'ok'" | $Perl -e "print <STDIN>"`, "ok\n", 'extra newlines on outgoing pipes'); + + { + local($/) = \2; + $out = runperl(prog => 'print q{1234}'); + is($out, "1234", 'ignore $/ when capturing output in scalar context'); + } } |