From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 14 Nov 2001 21:09:48 +0000 (+0000)
Subject: test.pl tweaks from Rafael and Pudge (assuming I deciphered
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f93a5f0713380ffacfb1cc418ab7b0f313757306;p=p5sagit%2Fp5-mst-13.2.git

test.pl tweaks from Rafael and Pudge (assuming I deciphered
Pudge correctly).

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

diff --git a/t/test.pl b/t/test.pl
index 9a95de1..90e7ed5 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -199,13 +199,13 @@ sub _quote_args {
 sub runperl {
     my %args = @_;
     my $runperl = $^X;
-    if (defined $args{switches}) {
+    if ($args{switches}) {
 	_quote_args(\$runperl, $args{switches});
     }
-    unless (defined $args{nolib}) {
-	if ($is_macos && $args{stderr}) {
+    unless ($args{nolib}) {
+	if ($is_macos) {
 	    $runperl .= ' -I::lib';
-	    # Use UNIX style error message instead of MPW style.
+	    # Use UNIX style error messages instead of MPW style.
 	    $runperl .= ' -MMac::err=unix' if $args{stderr};
 	}
 	else {
@@ -224,11 +224,11 @@ sub runperl {
     }
     if (defined $args{stdin}) {
 	if ($is_mswin || $is_netware || $is_vms) {
-	    $runperl = qq{$^X -e "print q(} .
+	    $runperl = qq{$^X -e "print qq(} .
 		$args{stdin} . q{)" | } . $runperl;
 	}
 	else {
-	    $runperl = qq{$^X -e 'print q(} .
+	    $runperl = qq{$^X -e 'print qq(} .
 		$args{stdin} . q{)' | } . $runperl;
 	}
     }