diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-08 08:41:38 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-08 11:27:21 +0200 |
| commit | 7b903762ad0ebd5d0459692ad5c081c69a3c0808 (patch) | |
| tree | 6e64cf76feca7527bf3a0b2ab962572023e5887e /lib/strict.t | |
| parent | a34ce875bf70f00f7af4a549f8c1ff0f4469f7fb (diff) | |
| download | perl-7b903762ad0ebd5d0459692ad5c081c69a3c0808.tar.gz | |
Remove code specific to MacOS Classic from core tests
Diffstat (limited to 'lib/strict.t')
| -rw-r--r-- | lib/strict.t | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lib/strict.t b/lib/strict.t index bfe6b636c5..93264ac70e 100644 --- a/lib/strict.t +++ b/lib/strict.t @@ -16,7 +16,7 @@ my $i = 0 ; my @prgs = () ; -foreach (sort glob($^O eq 'MacOS' ? ":lib:strict:*" : "lib/strict/*")) { +foreach (sort glob("lib/strict/*")) { next if -d || /(~|\.orig|,v)$/; @@ -53,7 +53,6 @@ for (@prgs){ while (@files > 2) { my $filename = shift @files ; my $code = shift @files ; - $code =~ s|\./abc|:abc|g if $^O eq 'MacOS'; push @temps, $filename ; open F, ">$filename" or die "Cannot open $filename: $!\n" ; print F $code ; @@ -61,7 +60,6 @@ for (@prgs){ } shift @files ; $prog = shift @files ; - $prog =~ s|\./abc|:abc|g if $^O eq 'MacOS'; } my $tmpfile = tempfile(); open TEST, ">$tmpfile" or die "Could not open: $!"; @@ -71,8 +69,6 @@ for (@prgs){ `.\\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` : `$^X $switch $tmpfile 2>&1`; my $status = $?; $results =~ s/\n+$//; @@ -80,8 +76,6 @@ for (@prgs){ $results =~ s/tmp\d+[A-Z][A-Z]?/-/g; $results =~ s/\n%[A-Z]+-[SIWEF]-.*$// if $Is_VMS; # clip off DCL status msg $expected =~ s/\n+$//; - $expected =~ s|(\./)?abc\.pm|:abc.pm|g if $^O eq 'MacOS'; - $expected =~ s|./abc|:abc|g if $^O eq 'MacOS'; my $prefix = ($results =~ s/^PREFIX\n//) ; my $TODO = $prog =~ m/^#\s*TODO:/; if ( $results =~ s/^SKIPPED\n//) { |