Change 14201 by jhi@alpha on 2002/01/12 00:06:02
Subject: Re: [PATCH lib/AnyDBM_File.t] Convert to Test::More
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Fri, 11 Jan 2002 17:08:17 -0500
Message-ID: <20020111220817.GG2838@blackrider>
Affected files ...
.... //depot/perl/t/run/kill_perl.t#27 edit
.... //depot/perl/t/test.pl#35 edit
Differences ...
==== //depot/perl/t/run/kill_perl.t#27 (text) ====
Index: perl/t/run/kill_perl.t
--- perl/t/run/kill_perl.t.~1~ Fri Jan 11 17:15:06 2002
+++ perl/t/run/kill_perl.t Fri Jan 11 17:15:06 2002
@@ -52,7 +52,7 @@
my($prog,$expected) = split(/\nEXPECT\n/, $raw_prog);
- kill_perl($prog, $expected, { switches => $switch }, $name);
+ kill_perl($prog, $expected, { switches => [$switch] }, $name);
}
__END__
==== //depot/perl/t/test.pl#35 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl.~1~ Fri Jan 11 17:15:06 2002
+++ perl/t/test.pl Fri Jan 11 17:15:06 2002
@@ -280,8 +280,7 @@
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) {
End of Patch.
