make testsuite somewhat location independent
[p5sagit/p5-mst-13.2.git] / t / op / fork.t
old mode 100644 (file)
new mode 100755 (executable)
index 55696fd..516aa73
@@ -1,6 +1,16 @@
 #!./perl
 
-# $Header: fork.t,v 4.0 91/03/20 01:52:43 lwall Locked $
+# $RCSfile: fork.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:53 $
+
+BEGIN {
+    chdir 't' if -d 't';
+    unshift @INC, '../lib';
+    require Config; import Config;
+    unless ($Config{'d_fork'}) {
+       print "1..0\n";
+       exit 0;
+    }
+}
 
 $| = 1;
 print "1..2\n";