This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Add comment
authorKarl Williamson <public@khwilliamson.com>
Thu, 15 Aug 2013 19:26:55 +0000 (13:26 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 15 Aug 2013 22:49:31 +0000 (16:49 -0600)
lib/locale.t

index 9c89d21..4433f58 100644 (file)
@@ -817,6 +817,8 @@ foreach $Locale (@Locale) {
     # documented deficiencies.  Non- UTF-8 locales are tested only under plain
     # 'use locale', as otherwise we would have to convert everything in them
     # to Unicode.
+    # The locale name doesn't necessarily have to have "utf8" in it to be a
+    # UTF-8 locale, but it works mostly.
     my $is_utf8_locale = $Locale =~ /UTF-?8/i;
 
     my %UPPER = ();     # All alpha X for which uc(X) == X and lc(X) != X