diff options
| -rw-r--r-- | t/run/kill_perl.t | 2 | ||||
| -rw-r--r-- | t/test.pl | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t index b0f0947f71..cf32e4b5ce 100644 --- a/t/run/kill_perl.t +++ b/t/run/kill_perl.t @@ -52,7 +52,7 @@ foreach my $prog (@prgs) { my($prog,$expected) = split(/\nEXPECT\n/, $raw_prog); - kill_perl($prog, $expected, { switches => $switch }, $name); + kill_perl($prog, $expected, { switches => [$switch] }, $name); } __END__ @@ -280,8 +280,7 @@ sub runperl { my %args = @_; my $runperl = $^X; if ($args{switches}) { - _quote_args(\$runperl, - ref $args{switches} ? $args{switches} : [$args{switches}]); + _quote_args(\$runperl, $args{switches}); } unless ($args{nolib}) { if ($is_macos) { |