locale.t: Revise tests

As indicated in the comment, the earlier incarnation of this commented
out "no locale" thus defeating the purpose of the tests.

diff --git a/lib/locale.t b/lib/locale.t
index b3c4d52..445e885 100644 (file)
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -708,10 +708,16 @@ foreach $Locale (@Locale) {
        tryneoalpha($Locale, 107, $c == $d);
 
        {
-#          no locale; # XXX did this ever work correctly?
+           no locale;
        
-           my $e = "$x";
-
+            # 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.
+           my $e = $x;
            debug "# 108..110: e = $e, Locale = $Locale\n";
 
            tryneoalpha($Locale, 108, $e == 1.23);