This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/loc_tools.pl: Nits in comments, white-space only
authorKarl Williamson <khw@cpan.org>
Sat, 15 Nov 2014 16:50:51 +0000 (09:50 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 15 Nov 2014 17:06:33 +0000 (10:06 -0700)
t/loc_tools.pl

index aa36f5d..4bd2364 100644 (file)
@@ -73,7 +73,9 @@ sub find_locales ($) {  # Returns an array of all the locales we found on the
                         # system.  The parameter is either a single locale
                         # category or a reference to a list of categories to
                         # find valid locales for it (or in the case of
                         # system.  The parameter is either a single locale
                         # category or a reference to a list of categories to
                         # find valid locales for it (or in the case of
-                        # multiple) for all of them
+                        # multiple) for all of them.  Note that currently the
+                        # array includes even those locales that don't play
+                        # well with Perl
     my $categories = shift;
 
     use Config;;
     my $categories = shift;
 
     use Config;;
@@ -161,7 +163,6 @@ sub find_locales ($) {  # Returns an array of all the locales we found on the
         # This is going to be slow.
         my @Data;
 
         # This is going to be slow.
         my @Data;
 
-
         # Locales whose name differs if the utf8 bit is on are stored in these two
         # files with appropriate encodings.
         if ($^H & 0x08 || (${^OPEN} || "") =~ /:utf8/) {
         # Locales whose name differs if the utf8 bit is on are stored in these two
         # files with appropriate encodings.
         if ($^H & 0x08 || (${^OPEN} || "") =~ /:utf8/) {
@@ -208,8 +209,6 @@ sub find_locales ($) {  # Returns an array of all the locales we found on the
     @Locale = sort @Locale;
 
     return @Locale;
     @Locale = sort @Locale;
 
     return @Locale;
-
-
 }
 
 sub is_locale_utf8 ($) { # Return a boolean as to if core Perl thinks the input
 }
 
 sub is_locale_utf8 ($) { # Return a boolean as to if core Perl thinks the input
@@ -255,7 +254,7 @@ sub is_locale_utf8 ($) { # Return a boolean as to if core Perl thinks the input
     return $ret;
 }
 
     return $ret;
 }
 
-sub find_utf8_ctype_locale (;$) { # Return the name of locale that core Perl
+sub find_utf8_ctype_locale (;$) { # Return the name of locale that core Perl
                                   # thinks is a UTF-8 LC_CTYPE locale.
                                   # Optional parameter is a reference to a
                                   # list of locales to try; if omitted, this
                                   # thinks is a UTF-8 LC_CTYPE locale.
                                   # Optional parameter is a reference to a
                                   # list of locales to try; if omitted, this