This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Note the U8 sized space created by removing -P, and check that it is
authorNicholas Clark <nick@ccl4.org>
Fri, 11 Jan 2008 15:04:51 +0000 (15:04 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 11 Jan 2008 15:04:51 +0000 (15:04 +0000)
now an illegal command line flag.

p4raw-id: //depot/perl@32956

intrpvar.h
t/run/switches.t

index 787543f..d457028 100644 (file)
@@ -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 *)
 
index 317586e..4af3141 100644 (file)
@@ -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