perl 4.0 patch 22: patch #20, continued

[p5sagit/p5-mst-13.2.git] / t / comp / cpp.t

diff --git a/t/comp/cpp.t b/t/comp/cpp.t
index 0e2b6fa..dca25d3 100644 (file)
--- a/t/comp/cpp.t
+++ b/t/comp/cpp.t
@@ -1,6 +1,18 @@
 #!./perl -P
 
-# $Header: cpp.t,v 4.0 91/03/20 01:50:05 lwall Locked $
+# $RCSfile: cpp.t,v $$Revision: 4.0.1.1 $$Date: 92/06/08 15:42:08 $
+
+open(CONFIG,"../config.sh") || die;
+while (<CONFIG>) {
+    if (/^cppstdin/) {
+       if (/^cppstdin='(.*cppstdin)'/ && ! -e $1) {
+           print "1..0\n";
+           exit;               # Can't test till after install, alas.
+       }
+       last;
+    }
+}
+close CONFIG;
 
 print "1..3\n";