From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 4 Nov 2000 22:56:21 +0000 (+0000)
Subject: Test tweak ($Config{useperlio} is by default undef) .
X-Git-Tag: accepted/trunk/20130322.191538~33755
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b35c5fa1ef4ed5bc851a2c97d645858aa9d0f736;p=platform%2Fupstream%2Fperl.git

Test tweak ($Config{useperlio} is by default undef) .

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

diff --git a/t/lib/b.t b/t/lib/b.t
index fca7f47..2bca033 100755
--- a/t/lib/b.t
+++ b/t/lib/b.t
@@ -126,7 +126,7 @@ ok;
 
 chomp($a = `$^X "-I../lib" "-MB::Stash" "-Mwarnings" -e1`);
 $a = join ',', sort split /,/, $a;
-$a =~ s/-uperlio(?:::\w+)?,//g if $Config{'useperlio'} eq 'define';
+$a =~ s/-uperlio(?:::\w+)?,//g if defined $Config{'useperlio'} and $Config{'useperlio'} eq 'define';
 $a =~ s/-uWin32,// if $^O eq 'MSWin32';
 $a =~ s/-u(Cwd|File|File::Copy|OS2),//g if $^O eq 'os2';
 $a =~ s/-uCwd,// if $^O eq 'cygwin';