Upgrade to IO 1.22 from gbarr

[p5sagit/p5-mst-13.2.git] / ext / IO / t / io_pipe.t

diff --git a/ext/IO/t/io_pipe.t b/ext/IO/t/io_pipe.t
index a8bc483..1c3ab80 100755 (executable)
--- a/ext/IO/t/io_pipe.t
+++ b/ext/IO/t/io_pipe.t
@@ -1,10 +1,16 @@
 #!./perl
 
+my $perl;
+
 BEGIN {
     unless(grep /blib/, @INC) {
+       $perl = './perl';
        chdir 't' if -d 't';
        @INC = '../lib';
     }
+    else {
+       $perl = $^X;
+    }
 }
 
 use Config;
@@ -27,7 +33,6 @@ BEGIN {
 
 use IO::Pipe;
 
-my $perl = './perl';
 
 $| = 1;
 print "1..10\n";