diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-01-04 05:26:00 -0600 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2003-01-06 06:43:11 +0000 |
| commit | 143a3e5ef1446bbe436a43486e7681c31b0c8407 (patch) | |
| tree | b63366b39c4f63f0d734525b3d966c3cbabaa96d /lib/charnames.t | |
| parent | 5ce10329cdf928fb6a8fbddb793336dc3ff530e6 (diff) | |
| download | perl-143a3e5ef1446bbe436a43486e7681c31b0c8407.tar.gz | |
VMS test adjustments
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E171928.1040100@mac.com>
p4raw-id: //depot/perl@18451
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index b2c1636789..97663a7d1e 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -6,6 +6,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; @INC = '../lib'; + require './test.pl'; } $SIG{__WARN__} = sub { push @WARN, @_ }; } @@ -292,11 +293,9 @@ for (@prgs) { print $ali $fil; close $ali or die "Could not close $alifile: $!"; } - my $res = - $^O eq "MSWin32" ? `.\\perl -I../lib $switch $tmpfile 2>&1` : - $^O eq "NetWare" ? `perl -I../lib $switch $tmpfile 2>&1` : - $^O eq "MacOS" ? `$^X -I::lib -MMac::err=unix $switch $tmpfile` : - `./perl -I. -I../lib $switch $tmpfile 2>&1`; + my $res = runperl( switches => $switch, + progfile => $tmpfile, + stderr => 1 ); my $status = $?; $res =~ s/[\r\n]+$//; $res =~ s/tmp\d+/-/g; # fake $prog from STDIN |