This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Time-Piece to CPAN version 1.27
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 5 Jan 2014 12:23:03 +0000 (12:23 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 5 Jan 2014 12:23:03 +0000 (12:23 +0000)
  [DELTA]

1.27      2014-01-03
        - portability fixes for XS changes in 1.25_01

Porting/Maintainers.pl
cpan/Time-Piece/Piece.pm
cpan/Time-Piece/Piece.xs
cpan/Time-Piece/Seconds.pm

index bacb206..31b4e8e 100755 (executable)
@@ -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],
     },
 
index 895480c..f913db9 100644 (file)
@@ -19,7 +19,7 @@ our %EXPORT_TAGS = (
     ':override' => 'internal',
     );
 
-our $VERSION = '1.26';
+our $VERSION = '1.27';
 
 bootstrap Time::Piece $VERSION;
 
index bdf4860..0798b34 100644 (file)
@@ -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");
        }
index 3e82ec5..b001f20 100644 (file)
@@ -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';