This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Swap #if sense for localeconv()
authorKarl Williamson <khw@cpan.org>
Fri, 16 May 2014 00:13:08 +0000 (18:13 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 5 Jun 2014 17:22:59 +0000 (11:22 -0600)
When the else clause is trivial, and the if clause is long, It's far easier to understand if they're swapped
so the short clause and the else are right after the if.

ext/POSIX/POSIX.xs

index b6056d6..758a20f 100644 (file)
@@ -282,7 +282,9 @@ END_EXTERN_C
 #endif
 #endif
 
-#ifdef HAS_LOCALECONV
+#ifndef HAS_LOCALECONV
+#   define localeconv() not_here("localeconv")
+#else
 struct lconv_offset {
     const char *name;
     size_t offset;
@@ -320,9 +322,7 @@ const struct lconv_offset lconv_integers[] = {
     {NULL, 0}
 };
 
-#else
-#define localeconv() not_here("localeconv")
-#endif
+#endif /* HAS_LOCALECONV */
 
 #ifdef HAS_LONG_DOUBLE
 #  if LONG_DOUBLESIZE > NVSIZE
@@ -899,7 +899,9 @@ open(filename, flags = O_RDONLY, mode = 0666)
 HV *
 localeconv()
     CODE:
-#ifdef HAS_LOCALECONV
+#ifndef HAS_LOCALECONV
+       localeconv(); /* A stub to call not_here(). */
+#else
        struct lconv *lcbuf;
 
         /* localeconv() deals with both LC_NUMERIC and LC_MONETARY, but
@@ -930,9 +932,7 @@ localeconv()
            } while ((++integers)->name);
        }
         RESTORE_NUMERIC_STANDARD();
-#else
-       localeconv(); /* A stub to call not_here(). */
-#endif
+#endif  /* HAS_LOCALECONV */
     OUTPUT:
        RETVAL