This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove MacOS Classic references from B's tests.
authorNicholas Clark <nick@ccl4.org>
Fri, 4 Feb 2011 21:14:29 +0000 (22:14 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 4 Feb 2011 21:14:29 +0000 (22:14 +0100)
ext/B/t/showlex.t
ext/B/t/terse.t

index 257b9c9..6a53182 100644 (file)
@@ -22,17 +22,15 @@ my $verbose = @ARGV; # set if ANY ARGS
 
 my $a;
 my $Is_VMS = $^O eq 'VMS';
-my $Is_MacOS = $^O eq 'MacOS';
 
 my $path = join " ", map { qq["-I$_"] } @INC;
 $path = '"-I../lib" "-Iperl_root:[lib]"' if $Is_VMS;   # gets too long otherwise
-my $redir = $Is_MacOS ? "" : "2>&1";
 my $is_thread = $Config{use5005threads} && $Config{use5005threads} eq 'define';
 
 if ($is_thread) {
     ok "# use5005threads: test skipped\n";
 } else {
-    $a = `$^X $path "-MO=Showlex" -e "my \@one" $redir`;
+    $a = `$^X $path "-MO=Showlex" -e "my \@one" 2>&1`;
     like ($a, qr/sv_undef.*PVNV.*\@one.*sv_undef.*AV/s,
          "canonical usage works");
 }
index 7c1d396..26e2e76 100644 (file)
@@ -91,9 +91,7 @@ sub bar {
 
 # Schwern's example of finding an RV
 my $path = join " ", map { qq["-I$_"] } @INC;
-$path = '-I::lib -MMac::err=unix' if $^O eq 'MacOS';
-my $redir = $^O eq 'MacOS' ? '' : "2>&1";
-my $items = qx{$^X $path "-MO=Terse" -le "print \\42" $redir};
+my $items = qx{$^X $path "-MO=Terse" -le "print \\42" 2>&1};
 if( $] >= 5.011 ) {
     like( $items, qr/IV $hex \\42/, 'RV (but now stored in an IV)' );
 } else {