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 (file)
--- 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';