In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/b79536ea166b1ad79b3c02ab33e1d9f71044b45c?hp=670610ebb17508101065cc5f5ecfe616aace5335>
- Log -----------------------------------------------------------------
commit b79536ea166b1ad79b3c02ab33e1d9f71044b45c
Author: Karl Williamson <pub...@khwilliamson.com>
Date: Tue Jun 18 16:00:43 2013 -0600
lib/locale.t: Remove workaround for now fixed #108378
-----------------------------------------------------------------------
Summary of changes:
lib/locale.t | 16 +++-------------
1 file changed, 3 insertions(+), 13 deletions(-)
diff --git a/lib/locale.t b/lib/locale.t
index 5806138..96f9045 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -1054,17 +1054,7 @@ foreach $Locale (@Locale) {
{
no locale;
- # The earlier test was $e = "$x". But this fails [perl
- # #108378], and the "no locale" was commented out. But doing
- # that made all the tests in the block after this one
- # meaningless, as originally it was testing the nesting of a
- # "no locale" scope, and how it recovers after that scope is
- # done. So I (khw) filed a bug report and changed this so it
- # wouldn't fail. It seemed too much work to add TODOs
- # instead. Should this be fixed, the following test names
- # would need to be revised; they mostly don't really test
- # anything currently.
- $e = $x;
+ $e = "$x";
$ok6 = $e == 1.23;
$ok7 = $e == $x;
@@ -1107,7 +1097,7 @@ foreach $Locale (@Locale) {
$ok5 = $c == $d;
{
no locale;
- $e = $x;
+ $e = "$x";
$ok6 = $e == 1.23;
$ok7 = $e == $x;
@@ -1148,7 +1138,7 @@ foreach $Locale (@Locale) {
debug "# $first_c_test..$locales_test_number: \$c = $c, \$d = $d, Locale =
$Locale\n";
tryneoalpha($Locale, ++$locales_test_number, $ok6);
- $test_names{$locales_test_number} = 'Verify that can assign numerically
under inner no-locale block';
+ $test_names{$locales_test_number} = 'Verify that can assign stringified
under inner no-locale block';
my $first_e_test = $locales_test_number;
tryneoalpha($Locale, ++$locales_test_number, $ok7);
--
Perl5 Master Repository
