Note the U8 sized space created by removing -P, and check that it is

now an illegal command line flag.

p4raw-id: //depot/perl@32956

diff --git a/intrpvar.h b/intrpvar.h
index 787543f..d457028 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -221,7 +221,6 @@ PERLVAR(Iminus_l,   bool)
 PERLVAR(Iminus_a,      bool)
 PERLVAR(Iminus_F,      bool)
 PERLVAR(Idoswitches,   bool)
-
 PERLVAR(Iminus_E,      bool)
 
 /*
@@ -241,6 +240,7 @@ PERLVAR(Iexit_flags,        U8)             /* was exit() unexpected, etc. */
 PERLVAR(Isrand_called, bool)
 /* Part of internal state, but makes the 16th 1 byte variable in a row.  */
 PERLVAR(Itainting,     bool)           /* doing taint checks */
+/* Space for a U8 */
 PERLVAR(Iinplace,      char *)
 PERLVAR(Ie_script,     SV *)
 

diff --git a/t/run/switches.t b/t/run/switches.t
index 317586e..4af3141 100644 (file)
--- a/t/run/switches.t
+++ b/t/run/switches.t
@@ -11,7 +11,7 @@ BEGIN {
 
 BEGIN { require "./test.pl"; }
 
-plan(tests => 61);
+plan(tests => 62);
 
 use Config;
 
@@ -255,7 +255,7 @@ SWTESTPM
 
 # Tests for switches which do not exist
 
-foreach my $switch (split //, "ABbGgHJjKkLNOoQqRrYyZz123456789_")
+foreach my $switch (split //, "ABbGgHJjKkLNOoPQqRrYyZz123456789_")
 {
     local $TODO = '';   # these ones should work on VMS