Change 13001 by jhi@alpha on 2001/11/14 21:09:48
test.pl tweaks from Rafael and Pudge (assuming I deciphered
Pudge correctly).
Affected files ...
.... //depot/perl/t/test.pl#10 edit
Differences ...
==== //depot/perl/t/test.pl#10 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl.~1~ Wed Nov 14 14:15:05 2001
+++ perl/t/test.pl Wed Nov 14 14:15:05 2001
@@ -199,13 +199,13 @@
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 @@
}
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;
}
}
End of Patch.
