From f93a5f0713380ffacfb1cc418ab7b0f313757306 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 14 Nov 2001 21:09:48 +0000 Subject: [PATCH] test.pl tweaks from Rafael and Pudge (assuming I deciphered Pudge correctly). p4raw-id: //depot/perl@13001 --- t/test.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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; } } -- 2.7.4