[perl.git] branch blead, updated. v5.13.5-34-ga636ff1

[Father Chrysostomos]

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