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
rjbs · Jan 11, 2008 · 9688998 · 9688998
1 parent 2b9dff6
commit 9688998
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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