SYN SYN

[p5sagit/p5-mst-13.2.git] / t / io / openpid.t

diff --git a/t/io/openpid.t b/t/io/openpid.t
index 0e8b934..3871e0b 100755 (executable)
--- a/t/io/openpid.t
+++ b/t/io/openpid.t
@@ -9,7 +9,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
     if ($^O eq 'dos') {
         print "1..0 # Skip: no multitasking\n";
         exit 0;
@@ -24,7 +24,7 @@ $SIG{PIPE} = 'IGNORE';
 
 print "1..10\n";
 
-$perl = "$^X -I../lib";
+$perl = qq[$^X "-I../lib"];
 
 #
 # commands run 4 perl programs.  Two of these programs write a
@@ -81,5 +81,5 @@ print FH4 "ok 9\n";
 print "# waiting for process $pid4 to exit\n";
 $reap_pid = waitpid $pid4, 0;
 print "# reaped pid $reap_pid != $pid4\nnot "
-    unless $reap_pid == $pid4;
+    unless $reap_pid == $pid4;         
 print "ok 10\n";