From: Steffen Mueller <smueller@cpan.org>
Date: Fri, 4 Sep 2009 10:47:24 +0000 (+0200)
Subject: Attempt to fix core-specific logic in IPC::Open2 tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a5216984b4922de7461f5d613e26522071afecb;p=p5sagit%2Fp5-mst-13.2.git

Attempt to fix core-specific logic in IPC::Open2 tests
---

diff --git a/ext/IPC-Open2/t/IPC-Open2.t b/ext/IPC-Open2/t/IPC-Open2.t
index fe49189..8a2fd76 100644
--- a/ext/IPC-Open2/t/IPC-Open2.t
+++ b/ext/IPC-Open2/t/IPC-Open2.t
@@ -1,8 +1,6 @@
 #!./perl -w
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
     require Config; import Config;
     if (!$Config{'d_fork'}
        # open2/3 supported on win32 (but not Borland due to CRT bugs)
@@ -20,7 +18,7 @@ use IO::Handle;
 use IPC::Open2;
 #require 'open2.pl'; use subs 'open2';
 
-my $perl = './perl';
+my $perl = $^X;
 
 sub ok {
     my ($n, $result, $info) = @_;