From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 11 Jan 2008 15:04:51 +0000 (+0000)
Subject: Note the U8 sized space created by removing -P, and check that it is
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9688998215db24fcbbf5a5b6d1ac4ce0dd91d4a2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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