From: Michael G. Schwern <schwern@pobox.com>
Date: Fri, 11 Jan 2002 17:08:17 +0000 (-0500)
Subject: Re: [PATCH lib/AnyDBM_File.t] Convert to Test::More
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8da5ed17f020bf32d6d474ab8bec79dd261b2cb8;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH lib/AnyDBM_File.t] Convert to Test::More
Message-ID: <20020111220817.GG2838@blackrider>

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

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index b0f0947..cf32e4b 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__
diff --git a/t/test.pl b/t/test.pl
index 5f358b9..379e136 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -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) {