diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 06:44:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 06:44:42 +0000 |
| commit | f0963acb6df75767aaf57c94e1e7509003ff1543 (patch) | |
| tree | caab5a83cad07f6fe3efa85385f4bc996ab12923 /t/pragma/warnings.t | |
| parent | c15a5d5de69fd60182fabfe5d4c4aba46fd1ca8a (diff) | |
| download | perl-f0963acb6df75767aaf57c94e1e7509003ff1543.tar.gz | |
consolidated VMS patches (from Craig A. Berry
<craig.berry@metamorgs.com>); Glob.pm patch modified to use
$DEFAULT_FLAGS, and iff no flags were supplied
p4raw-id: //depot/perl@5397
Diffstat (limited to 't/pragma/warnings.t')
| -rw-r--r-- | t/pragma/warnings.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/pragma/warnings.t b/t/pragma/warnings.t index 41324e68cc..71fb0df972 100644 --- a/t/pragma/warnings.t +++ b/t/pragma/warnings.t @@ -76,7 +76,7 @@ for (@prgs){ print TEST $prog,"\n"; close TEST; my $results = $Is_VMS ? - `MCR $^X $switch $tmpfile` : + `./perl "-I../lib" $switch $tmpfile 2>&1` : $Is_MSWin32 ? `.\\perl -I../lib $switch $tmpfile 2>&1` : `./perl -I../lib $switch $tmpfile 2>&1`; @@ -91,7 +91,7 @@ for (@prgs){ # allow all tests to run when there are leaks $results =~ s/Scalars leaked: \d+\n//g; $expected =~ s/\n+$//; - my $prefix = ($results =~ s/^PREFIX\n//) ; + my $prefix = ($results =~ s#^PREFIX(\n|$)##) ; # any special options? (OPTIONS foo bar zap) my $option_regex = 0; if ($expected =~ s/^OPTIONS? (.+)\n//) { |