diff options
| -rw-r--r-- | intrpvar.h | 2 | ||||
| -rw-r--r-- | t/run/switches.t | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/intrpvar.h b/intrpvar.h index 787543f4f1..d457028ec1 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 317586ed2f..4af3141fd7 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 |