summaryrefslogtreecommitdiff
path: root/lib/Test
diff options
context:
space:
mode:
authorChip Salzenberg <chip@atlantic.net>1997-01-28 23:10:05 +1200
committerChip Salzenberg <chip@atlantic.net>1997-01-29 18:11:00 +1200
commita50773103a26cca5998b5148cb57f8efac11a750 (patch)
tree1a19e8bf4e423defc0fa7f6212723f93387bb405 /lib/Test
parent5f832ef353a0bd2ca8a7cb6ea0b7e25cf9fcb9dd (diff)
downloadperl-a50773103a26cca5998b5148cb57f8efac11a750.tar.gz
Fix $Is_VMS typo in Test::Harness
Diffstat (limited to 'lib/Test')
-rw-r--r--lib/Test/Harness.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index ddf80c953f..ec2c49e559 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -53,7 +53,7 @@ sub runtests {
my $old5lib = $ENV{PERL5LIB};
local($ENV{'PERL5LIB'}) = join($Config{path_sep}, @INC);
- if ($Is_VMS) { $switches =~ s/-(\S*[A-Z]\S*)/"-$1"/g }
+ if ($^O eq 'VMS') { $switches =~ s/-(\S*[A-Z]\S*)/"-$1"/g }
my $t_start = new Benchmark;
while ($test = shift(@tests)) {
@@ -61,8 +61,9 @@ sub runtests {
chop($te);
print "$te" . '.' x (20 - length($te));
my $fh = new FileHandle;
- if ($^O eq 'VMS') { $fh->open("MCR $^X $switches $test|") || (print "can't run. $!\n"); }
- else { $fh->open("$^X $switches $test|") || (print "can't run. $!\n"); }
+ my $cmd = "$^X $switches $test|";
+ $cmd = "MCR $cmd" if $^O eq 'VMS';
+ $fh->open($cmd) or print "can't run. $!\n";
$ok = $next = $max = 0;
@failed = ();
while (<$fh>) {