This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge branch 'schwern/y2038' into blead
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 3 Jan 2009 17:55:29 +0000 (18:55 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 3 Jan 2009 17:55:29 +0000 (18:55 +0100)
Conflicts:

lib/Time/Local.pm
lib/Time/Local.t
reentr.h

1  2 
MANIFEST
lib/Time/Local.pm
lib/Time/Local.t
pod/perlport.pod
pp_sys.c
reentr.h
reentr.pl

diff --cc MANIFEST
Simple merge
@@@ -4,10 -4,9 +4,9 @@@ require Exporter
  use Carp;
  use Config;
  use strict;
- use integer;
  
  use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
 -$VERSION   = '1.18_01';
 +$VERSION   = '1.1901';
  
  @ISA       = qw( Exporter );
  @EXPORT    = qw( timegm timelocal );
Simple merge
Simple merge
diff --cc pp_sys.c
Simple merge
diff --cc reentr.h
+++ b/reentr.h
@@@ -1323,37 -1316,13 +1316,13 @@@ typedef struct 
  #   undef getspnam
  #   if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
  #       define getspnam(a) ((PL_reentrant_retint = getspnam_r(a, &PL_reentrant_buffer->_spent_struct, PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size, &PL_reentrant_buffer->_spent_ptr)) == 0 ? PL_reentrant_buffer->_spent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0))
 -#  endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
 +#   endif
  #   if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
  #       define getspnam(a) (getspnam_r(a, &PL_reentrant_buffer->_spent_struct, PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size) ? &PL_reentrant_buffer->_spent_struct : ((errno == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0))
 -#  endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
 -#   endif /* HAS_GETSPNAM */
 +#   endif
 +#  endif
  #endif /* HAS_GETSPNAM_R */
  
- #ifdef HAS_GMTIME_R
- #  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
- #   undef gmtime
- #   if !defined(gmtime) && GMTIME_R_PROTO == REENTRANT_PROTO_S_TS
- #       define gmtime(a) (gmtime_r(a, &PL_reentrant_buffer->_gmtime_struct) ? &PL_reentrant_buffer->_gmtime_struct : 0)
- #   endif
- #   if !defined(gmtime) && GMTIME_R_PROTO == REENTRANT_PROTO_I_TS
- #       define gmtime(a) (gmtime_r(a, &PL_reentrant_buffer->_gmtime_struct) == 0 ? &PL_reentrant_buffer->_gmtime_struct : 0)
- #   endif
- #  endif
- #endif /* HAS_GMTIME_R */
- #ifdef HAS_LOCALTIME_R
- #  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
- #   undef localtime
- #   if !defined(localtime) && LOCALTIME_R_PROTO == REENTRANT_PROTO_S_TS
- #       define localtime(a) (L_R_TZSET localtime_r(a, &PL_reentrant_buffer->_localtime_struct) ? &PL_reentrant_buffer->_localtime_struct : 0)
- #   endif
- #   if !defined(localtime) && LOCALTIME_R_PROTO == REENTRANT_PROTO_I_TS
- #       define localtime(a) (L_R_TZSET localtime_r(a, &PL_reentrant_buffer->_localtime_struct) == 0 ? &PL_reentrant_buffer->_localtime_struct : 0)
- #   endif
- #  endif
- #endif /* HAS_LOCALTIME_R */
  #ifdef HAS_RANDOM_R
  #  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
  #   undef random
diff --cc reentr.pl
Simple merge