diff options
| author | Craig A. Berry <craigberry@mac.com> | 2009-12-19 10:05:12 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-12-19 10:05:12 -0600 |
| commit | 15fe4dead04687a0a035e4103e5bb3965fa4c9f4 (patch) | |
| tree | fe8104a3c7e1887b7c008dd71940115685b811c2 /t/io | |
| parent | d1585ceaf66a98c6f5f3520ecf3dec4ccc98a1d6 (diff) | |
| download | perl-15fe4dead04687a0a035e4103e5bb3965fa4c9f4.tar.gz | |
runperl may modify arguments passed to it.
So be cautious about reusing them. In this case, filenames acquired
quotes in them, which are not legal in filenames on VMS.
Diffstat (limited to 't/io')
| -rw-r--r-- | t/io/inplace.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/io/inplace.t b/t/io/inplace.t index 2ab5bf78c4..a27881895b 100644 --- a/t/io/inplace.t +++ b/t/io/inplace.t @@ -57,7 +57,11 @@ SKIP: is(scalar(@ARGV), 0, "consumed ARGV"); - is( runperl( prog => 'print<>;', args => \@ifiles ), +# runperl may quote its arguments, so don't expect to be able +# to reuse things you send it. + + my @my_ifiles = @ifiles; + is( runperl( prog => 'print<>;', args => \@my_ifiles ), "foobar\nfoobar\nfoobar\n", "normal inplace edit"); } @@ -78,7 +82,8 @@ SKIP: is(scalar(@ARGV), 0, "consumed ARGV"); - is( runperl( prog => 'print<>;', args => \@ifiles ), + my @my_ifiles = @ifiles; + is( runperl( prog => 'print<>;', args => \@my_ifiles ), "foobar\nfoobar\nfoobar\n", "normal inplace edit"); } |