Re: Named-capture regex syntax

[p5sagit/p5-mst-13.2.git] / reentr.pl

diff --git a/reentr.pl b/reentr.pl
index 9edc7ad..527bd1c 100644 (file)
--- a/reentr.pl
+++ b/reentr.pl
@@ -650,7 +650,7 @@ EOF
        push @wrap, $ifdef;
 
        push @wrap, <<EOF;
-#  if defined(PERL_REENTR_API) && (PERL_REENTR_API == 1)
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
 #   undef $func
 EOF
 
@@ -717,6 +717,9 @@ EOF
            }
 
            my $call = "${func}_r($v$w)";
+           if ($func eq 'localtime') {
+               $call = "L_R_TZSET $call";
+           }
 
             # Must make OpenBSD happy
             my $memzero = '';
@@ -750,7 +753,7 @@ EOF
                }
            }
            push @wrap, <<EOF;
-#  endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API == 1) */
+#  endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
 EOF
        }