From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 26 Apr 2001 01:44:57 +0000 (+0000)
Subject: Make selfstubber test more portable.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef61f41fdf10ad2a6c79b030f50b2b35293c0473;p=p5sagit%2Fp5-mst-13.2.git

Make selfstubber test more portable.

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

diff --git a/t/lib/selfstubber.t b/t/lib/selfstubber.t
index 8e8502a..4565c79 100644
--- a/t/lib/selfstubber.t
+++ b/t/lib/selfstubber.t
@@ -8,7 +8,7 @@ BEGIN {
 use strict;
 use Devel::SelfStubber;
 
-my $runperl = './perl';
+my $runperl = "$^X \"-I../lib\"";
 
 print "1..7\n";
 
@@ -117,7 +117,8 @@ print ${module}->foo;
 {
   my %output;
   foreach my $module (@module) {
-    ($output{$module} = `$runperl -I $inlib $module--$$`)
+    print "# $runperl \"-I$inlib\" $module--$$\n";
+    ($output{$module} = `$runperl "-I$inlib" $module--$$`)
       =~ s/\'s foo//;
   }
 
@@ -156,7 +157,8 @@ print "ok 6\n";
 {
   my %output;
   foreach my $module (@module) {
-    ($output{$module} = `$runperl -I $lib $module--$$`)
+    print "# $runperl \"-I$lib\" $module--$$\n";
+    ($output{$module} = `$runperl "-I$lib" $module--$$`)
       =~ s/\'s foo//;
   }