[perl #39012] another REIFY bug

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

diff --git a/t/comp/cpp.t b/t/comp/cpp.t
index cb8df50..80add81 100755 (executable)
--- a/t/comp/cpp.t
+++ b/t/comp/cpp.t
@@ -1,18 +1,17 @@
 #!./perl
 
-# $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    $ENV{PERL5LIB} = '../lib';
 }
 
 use Config;
-if ( $^O eq 'MSWin32' or $^O eq 'MacOS' or
-     ($Config{'cppstdin'} =~ /\bcppstdin\b/) and
-     ( ! -x $Config{'binexp'} . "/cppstdin") ) {
+if ( $^O eq 'MacOS' ||
+     ($Config{'cppstdin'} =~ /\bcppstdin\b/) &&
+     ! -x $Config{'binexp'} . "/cppstdin" ) {
     print "1..0 # Skip: \$Config{cppstdin} unavailable\n";
     exit;              # Cannot test till after install, alas.
 }
 
-system "./perl -P comp/cpp.aux"
+system qq{$^X -"P" "comp/cpp.aux"};