From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Jun 2001 23:36:56 +0000 (+0000)
Subject: Just zap the -uPerlio.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5456cc46bd42ceffaad395dfff18bb25cee5b76c;hp=dc87d25e60a6badc27049437f269957fa4953095;p=p5sagit%2Fp5-mst-13.2.git

Just zap the -uPerlio.

p4raw-id: //depot/perl@10873
---

diff --git a/ext/B/Stash.t b/ext/B/Stash.t
index bc9d896..d302d2e 100644
--- a/ext/B/Stash.t
+++ b/ext/B/Stash.t
@@ -28,7 +28,7 @@ my $redir = $Is_MacOS ? "" : "2>&1";
 
 chomp($a = `$^X $path "-MB::Stash" "-Mwarnings" -e1`);
 $a = join ',', sort split /,/, $a;
-$a =~ s/-u(PerlIO|open)(?:::\w+)?,//g if defined $Config{'useperlio'} and $Config{'useperlio'} eq 'define';
+$a =~ s/-u(PerlIO|open)(?:::\w+)?,//g;
 $a =~ s/-uWin32,// if $^O eq 'MSWin32';
 $a =~ s/-uNetWare,// if $^O eq 'NetWare';
 $a =~ s/-u(Cwd|File|File::Copy|OS2),//g if $^O eq 'os2';