In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a636ff160adfade25b615b2e632590a3763b285c?hp=a539498ab05fd838aa1eaaebbe1f3528bb97d1d3>
- Log ----------------------------------------------------------------- commit a636ff160adfade25b615b2e632590a3763b285c Author: Michael G Schwern <schw...@pobox.com> Date: Mon Sep 20 22:23:48 2010 -0700 Test localization of English.pmâs $LIST_SEPARATOR [perl #47107] ----------------------------------------------------------------------- Summary of changes: lib/English.t | 12 +++++++++++- 1 files changed, 11 insertions(+), 1 deletions(-) diff --git a/lib/English.t b/lib/English.t index aa7e9d4..bc0a5da 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. -- Perl5 Master Repository