Change 32956 by [EMAIL PROTECTED] on 2008/01/11 15:04:51
Note the U8 sized space created by removing -P, and check that it is
now an illegal command line flag.
Affected files ...
... //depot/perl/intrpvar.h#232 edit
... //depot/perl/t/run/switches.t#23 edit
Differences ...
==== //depot/perl/intrpvar.h#232 (text) ====
Index: perl/intrpvar.h
--- perl/intrpvar.h#231~32954~ 2008-01-11 05:55:07.000000000 -0800
+++ perl/intrpvar.h 2008-01-11 07:04:51.000000000 -0800
@@ -221,7 +221,6 @@
PERLVAR(Iminus_a, bool)
PERLVAR(Iminus_F, bool)
PERLVAR(Idoswitches, bool)
-
PERLVAR(Iminus_E, bool)
/*
@@ -241,6 +240,7 @@
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 *)
==== //depot/perl/t/run/switches.t#23 (text) ====
Index: perl/t/run/switches.t
--- perl/t/run/switches.t#22~31812~ 2007-09-07 02:25:24.000000000 -0700
+++ perl/t/run/switches.t 2008-01-11 07:04:51.000000000 -0800
@@ -11,7 +11,7 @@
BEGIN { require "./test.pl"; }
-plan(tests => 61);
+plan(tests => 62);
use Config;
@@ -255,7 +255,7 @@
# 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
End of Patch.
