Remove the -P switch

p4raw-id: //depot/perl@32954

2 files changed, 0 insertions, 56 deletions

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' );