From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 11 Jan 2002 14:10:01 +0000 (+0000)
Subject: Arguments were being mangled.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85d994b617a326573b56a7e7a28ecb19b5f2d1f3;p=p5sagit%2Fp5-mst-13.2.git

Arguments were being mangled.

p4raw-id: //depot/perl@14185
---

diff --git a/t/test.pl b/t/test.pl
index d4b52c5..379e136 100644
--- 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) {