Arguments were being mangled.
Jarkko Hietaniemi [Fri, 11 Jan 2002 14:10:01 +0000 (14:10 +0000)]
p4raw-id: //depot/perl@14185

t/test.pl

index d4b52c5..379e136 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -280,7 +280,7 @@ sub runperl {
     my %args = @_;
     my $runperl = $^X;
     if ($args{switches}) {
-       _quote_args(\$runperl, [$args{switches}]);
+       _quote_args(\$runperl, $args{switches});
     }
     unless ($args{nolib}) {
        if ($is_macos) {