This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Add comments
authorKarl Williamson <public@khwilliamson.com>
Thu, 27 Jun 2013 19:57:19 +0000 (13:57 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 6 Jul 2013 04:29:59 +0000 (22:29 -0600)
locale.c

index c10228d..32e47eb 100644 (file)
--- a/locale.c
+++ b/locale.c
 /*
  * Standardize the locale name from a string returned by 'setlocale'.
  *
 /*
  * Standardize the locale name from a string returned by 'setlocale'.
  *
- * The standard return value of setlocale() is either
+ * The typical return value of setlocale() is either
  * (1) "xx_YY" if the first argument of setlocale() is not LC_ALL
  * (2) "xa_YY xb_YY ..." if the first argument of setlocale() is LC_ALL
  *     (the space-separated values represent the various sublocales,
  * (1) "xx_YY" if the first argument of setlocale() is not LC_ALL
  * (2) "xa_YY xb_YY ..." if the first argument of setlocale() is LC_ALL
  *     (the space-separated values represent the various sublocales,
- *      in some unspecified order)
+ *      in some unspecified order).  This is not handled by this function.
  *
  * In some platforms it has a form like "LC_SOMETHING=Lang_Country.866\n",
  *
  * In some platforms it has a form like "LC_SOMETHING=Lang_Country.866\n",
- * which is harmful for further use of the string in setlocale().
+ * which is harmful for further use of the string in setlocale().  This
+ * function removes the trailing new line and everything up through the '='
  *
  */
 STATIC char *
  *
  */
 STATIC char *