diff options
Diffstat (limited to 'lib/English.t')
| -rw-r--r-- | lib/English.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/English.t b/lib/English.t index aa7e9d47bc..bc0a5da76e 100644 --- a/lib/English.t +++ b/lib/English.t @@ -6,7 +6,7 @@ BEGIN { @INC = '../lib'; } -use Test::More tests => 55; +use Test::More tests => 57; use English qw( -no_match_vars ) ; use Config; @@ -158,6 +158,16 @@ main::ok( !$PREMATCH, '$PREMATCH disabled' ); main::ok( !$MATCH, '$MATCH disabled' ); main::ok( !$POSTMATCH, '$POSTMATCH disabled' ); + +# Check that both variables change when localized. +{ + local $LIST_SEPARATOR = "wibble"; + ::is $", 'wibble', '$" changes when $LIST_SEPARATOR is localized'; + + local $" = 'frooble'; + ::is $LIST_SEPARATOR, 'frooble'; +} + __END__ This is a line. This is a paragraph. |