In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/933a22568f4c2695009f681a5ba1ef103dac8547?hp=db9cb8483f3d2ac7f4fe573c8623e33721ea6139>
- Log ----------------------------------------------------------------- commit 933a22568f4c2695009f681a5ba1ef103dac8547 Author: Chris 'BinGOs' Williams <[email protected]> Date: Sun Jan 5 12:23:03 2014 +0000 Update Time-Piece to CPAN version 1.27 [DELTA] 1.27 2014-01-03 - portability fixes for XS changes in 1.25_01 ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/Time-Piece/Piece.pm | 2 +- cpan/Time-Piece/Piece.xs | 22 ++++------------------ cpan/Time-Piece/Seconds.pm | 2 +- 4 files changed, 7 insertions(+), 21 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index bacb206..31b4e8e 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1228,7 +1228,7 @@ use File::Glob qw(:case); }, 'Time::Piece' => { - 'DISTRIBUTION' => 'RJBS/Time-Piece-1.26.tar.gz', + 'DISTRIBUTION' => 'RJBS/Time-Piece-1.27.tar.gz', 'FILES' => q[cpan/Time-Piece], }, diff --git a/cpan/Time-Piece/Piece.pm b/cpan/Time-Piece/Piece.pm index 895480c..f913db9 100644 --- a/cpan/Time-Piece/Piece.pm +++ b/cpan/Time-Piece/Piece.pm @@ -19,7 +19,7 @@ our %EXPORT_TAGS = ( ':override' => 'internal', ); -our $VERSION = '1.26'; +our $VERSION = '1.27'; bootstrap Time::Piece $VERSION; diff --git a/cpan/Time-Piece/Piece.xs b/cpan/Time-Piece/Piece.xs index bdf4860..0798b34 100644 --- a/cpan/Time-Piece/Piece.xs +++ b/cpan/Time-Piece/Piece.xs @@ -10,14 +10,6 @@ extern "C" { } #endif -#ifdef INLINE -# define TP_INLINE INLINE /* TP = Time::Piece */ -#elif defined(_MSC_VER) -# define TP_INLINE __forceinline /* __inline often doesn't work in O1 */ -#else -# define TP_INLINE inline -#endif - /* XXX struct tm on some systems (SunOS4/BSD) contains extra (non POSIX) * fields for which we don't have Configure support prior to Perl 5.8.0: * char *tm_zone; -- abbreviation of timezone name @@ -957,15 +949,6 @@ label: return (char *)buf; } - -TP_INLINE char * -our_strptime(pTHX_ const char *buf, const char *fmt, struct tm *tm) -{ - int got_GMT = 0; - - return _strptime(aTHX_ buf, fmt, tm, &got_GMT); -} - /* Saves alot of machine code. Takes a (auto) SP, which may or may not have been PUSHed before, puts tm struct members on Perl stack, then returns new, advanced, SP to caller. @@ -1120,10 +1103,13 @@ _strptime ( string, format ) struct tm mytm; time_t t; char * remainder; + int got_GMT; PPCODE: t = 0; mytm = *gmtime(&t); - remainder = (char *)our_strptime(aTHX_ string, format, &mytm); + got_GMT = 0; + + remainder = (char *)_strptime(aTHX_ string, format, &mytm, &got_GMT); if (remainder == NULL) { croak("Error parsing time"); } diff --git a/cpan/Time-Piece/Seconds.pm b/cpan/Time-Piece/Seconds.pm index 3e82ec5..b001f20 100644 --- a/cpan/Time-Piece/Seconds.pm +++ b/cpan/Time-Piece/Seconds.pm @@ -2,7 +2,7 @@ package Time::Seconds; use strict; use vars qw/@EXPORT @EXPORT_OK/; -our $VERSION = '1.26'; +our $VERSION = '1.27'; use Exporter 5.57 'import'; -- Perl5 Master Repository
