diff options
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"); } |