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.

1 files changed, 9 insertions, 3 deletions

diff --git a/lib/locale.t b/lib/locale.t
index b3c4d52d07..445e8855e9 100644
--- 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);