This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX.xs: Remove redundant #ifdef
authorKarl Williamson <khw@cpan.org>
Mon, 21 Dec 2020 03:52:12 +0000 (20:52 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 21 Dec 2020 22:21:00 +0000 (15:21 -0700)
HAS_DUPLOCALE is implied by HAS_POSIX_2008_LOCALE; no need to mention it

ext/POSIX/POSIX.xs
ext/POSIX/lib/POSIX.pm

index 6bd30e8..60c7fd2 100644 (file)
@@ -1804,6 +1804,7 @@ fix_win32_tzenv(void)
     char* newenv;
     const char* perl_tz_env = win32_getenv("TZ");
     const char* crt_tz_env = getenv("TZ");
+
     if (perl_tz_env == NULL)
         perl_tz_env = "";
     if (crt_tz_env == NULL)
@@ -2174,8 +2175,7 @@ localeconv()
        sv_2mortal((SV*)RETVAL);
 #  if defined(USE_ITHREADS)                         \
    && defined(HAS_POSIX_2008_LOCALE)                \
-   && defined(HAS_LOCALECONV_L)                     \
-   && defined(HAS_DUPLOCALE)
+   && defined(HAS_LOCALECONV_L)
 
         cur = uselocale((locale_t) 0);
         if (cur == LC_GLOBAL_LOCALE) {
index c374af6..08986d2 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 
 our ($AUTOLOAD, %SIGRT);
 
-our $VERSION = '1.96';
+our $VERSION = '1.97';
 
 require XSLoader;