Remove the -P switch

p4raw-id: //depot/perl@32954

4 files changed, 0 insertions, 108 deletions

diff --git a/t/comp/cpp.aux b/t/comp/cpp.aux
deleted file mode 100755
index 9452bddbbe..0000000000
--- a/t/comp/cpp.aux
+++ /dev/null
@@ -1,35 +0,0 @@
-#!./perl -l
-
-# There's a bug in -P where the #! line is ignored.  If this test
-# suddenly starts printing blank lines that bug has been fixed.
-
-print "1..3\n";
-
-#define MESS "ok 1\n"
-print MESS;
-
-#ifdef MESS
-	print "ok 2\n";
-#else
-	print "not ok 2\n";
-#endif
-
-open(TRY,">Comp_cpp.tmp") || die "Can't open temp perl file: $!";
-
-($prog = <<'END') =~ s/X//g;
-X$ok = "not ok 3\n";
-X#include "Comp_cpp.inc"
-X#ifdef OK
-X$ok = OK;
-X#endif
-Xprint $ok;
-END
-print TRY $prog;
-close TRY or die "Could not close Comp_cpp.tmp: $!";
-
-open(TRY,">Comp_cpp.inc") || (die "Can't open temp include file: $!");
-print TRY '#define OK "ok 3\n"' . "\n";
-close TRY or die "Could not close Comp_cpp.tmp: $!";
-
-print `$^X "-P" Comp_cpp.tmp`;
-unlink "Comp_cpp.tmp", "Comp_cpp.inc";
diff --git a/t/comp/cpp.t b/t/comp/cpp.t
deleted file mode 100755
index 80add8130f..0000000000
--- a/t/comp/cpp.t
+++ /dev/null
@@ -1,17 +0,0 @@
-#!./perl
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-    $ENV{PERL5LIB} = '../lib';
-}
-
-use Config;
-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 qq{$^X -"P" "comp/cpp.aux"};
diff --git a/t/run/switchPx.aux b/t/run/switchPx.aux
deleted file mode 100644
index 68ebc83f79..0000000000
--- a/t/run/switchPx.aux
+++ /dev/null
@@ -1,34 +0,0 @@
-Some stuff that's not Perl
-
-This CPP directive should not be read.
-#define BARMAR 1
-
-#perl
-
-Still not perl.
-
-#!
-
-still not perl
-
-#!/something/else
-
-still not perl
-
-#!/some/path/that/leads/to/perl -l
-
-# The -l switch should be applied from the #! line.
-# Unfortunately, -P has a bug whereby the #! line is ignored.
-# If this test suddenly starts printing blank lines that bug is fixed.
-
-#define FOO "ok 1\n"
-
-#ifdef BARMAR
-#   define YAR "not ok 2\n"
-#else
-#   define YAR "ok 2\n"
-#endif
-
-print "1..2\n";
-print FOO;
-print YAR;
diff --git a/t/run/switchPx.t b/t/run/switchPx.t
deleted file mode 100644
index 72b068fe83..0000000000
--- a/t/run/switchPx.t
+++ /dev/null
@@ -1,22 +0,0 @@
-#!./perl
-
-# Ensure that the -P and -x flags work together.
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-    $ENV{PERL5LIB} = '../lib';
-
-    use Config;
-    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.
-    }
-}
-
-require './test.pl';
-
-print runperl( switches => ['-Px'], 
-               nolib => 1,   # for some reason this is necessary under VMS
-               progfile => 'run/switchPx.aux' );