Make selfstubber test more portable.

[p5sagit/p5-mst-13.2.git] / t / lib / selfstubber.t

diff --git a/t/lib/selfstubber.t b/t/lib/selfstubber.t
index 8e8502a..4565c79 100644 (file)
--- 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//;
   }