r22003 - in /trunk/libtime-piece-mysql-perl: Changes META.yml Makefile.PL debian/changelog lib/Time/Piece/MySQL.pm t/timestamp.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Jun 20 19:09:18 UTC 2008
Author: gregoa
Date: Fri Jun 20 19:09:17 2008
New Revision: 22003
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=22003
Log:
New upstream release.
Modified:
trunk/libtime-piece-mysql-perl/Changes
trunk/libtime-piece-mysql-perl/META.yml
trunk/libtime-piece-mysql-perl/Makefile.PL
trunk/libtime-piece-mysql-perl/debian/changelog
trunk/libtime-piece-mysql-perl/lib/Time/Piece/MySQL.pm
trunk/libtime-piece-mysql-perl/t/timestamp.t
Modified: trunk/libtime-piece-mysql-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtime-piece-mysql-perl/Changes?rev=22003&op=diff
==============================================================================
--- trunk/libtime-piece-mysql-perl/Changes (original)
+++ trunk/libtime-piece-mysql-perl/Changes Fri Jun 20 19:09:17 2008
@@ -1,3 +1,9 @@
+0.06 2008-06-07
+
+- added spaces to the strftime formats, as required by POSIX. Thanks to Brandt
+ Kurowski for highlighting the problem. Fixes bug #32580.
+- support newer MySQL formats. Fixes bug #23840.
+
0.05 Jul 21, 2004
- It seems that 0.04 was incorrectly bundled onto CPAN after my Solaris testing.
Modified: trunk/libtime-piece-mysql-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtime-piece-mysql-perl/META.yml?rev=22003&op=diff
==============================================================================
--- trunk/libtime-piece-mysql-perl/META.yml (original)
+++ trunk/libtime-piece-mysql-perl/META.yml Fri Jun 20 19:09:17 2008
@@ -1,12 +1,15 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Time-Piece-MySQL
-version: 0.05
-version_from: lib/Time/Piece/MySQL.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: Time-Piece-MySQL
+version: 0.06
+abstract: Adds MySQL-specific methods to Time::Piece
+license: ~
+author:
+ - Marty Pauley <marty+perl at kasei.com>
+generated_by: ExtUtils::MakeMaker version 6.42
+distribution_type: module
+requires:
Test::More: 0.47
Time::Piece: 1.03
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: trunk/libtime-piece-mysql-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtime-piece-mysql-perl/Makefile.PL?rev=22003&op=diff
==============================================================================
--- trunk/libtime-piece-mysql-perl/Makefile.PL (original)
+++ trunk/libtime-piece-mysql-perl/Makefile.PL Fri Jun 20 19:09:17 2008
@@ -4,11 +4,6 @@
NAME => 'Time::Piece::MySQL',
VERSION_FROM => 'lib/Time/Piece/MySQL.pm',
PREREQ_PM => { 'Time::Piece' => 1.03, 'Test::More' => 0.47 },
- ( $] >= 5.005
- ? ( # Add these new keywords supported since 5.005
- ABSTRACT_FROM => 'lib/Time/Piece/MySQL.pm',
- AUTHOR =>
- 'Dave Rolsky <autarch at urth.org>, Marty Pauley <marty+perl at kasei.com>',
- )
- : () ),
+ ABSTRACT_FROM => 'lib/Time/Piece/MySQL.pm',
+ AUTHOR => 'Marty Pauley <marty+perl at kasei.com>',
);
Modified: trunk/libtime-piece-mysql-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtime-piece-mysql-perl/debian/changelog?rev=22003&op=diff
==============================================================================
--- trunk/libtime-piece-mysql-perl/debian/changelog (original)
+++ trunk/libtime-piece-mysql-perl/debian/changelog Fri Jun 20 19:09:17 2008
@@ -1,5 +1,6 @@
-libtime-piece-mysql-perl (0.05-3) UNRELEASED; urgency=low
+libtime-piece-mysql-perl (0.06-1) UNRELEASED; urgency=low
+ [ Damyan Ivanov ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza). Changed:
Maintainer set to Debian Perl Group <pkg-perl-
@@ -9,6 +10,9 @@
* Add debian/watch.
* remove Homepage from long description; Homepage: field already
present
+
+ [ gregor herrmann ]
+ * New upstream release.
-- Damyan Ivanov <dmn at debian.org> Sat, 26 Jan 2008 10:16:03 +0200
Modified: trunk/libtime-piece-mysql-perl/lib/Time/Piece/MySQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtime-piece-mysql-perl/lib/Time/Piece/MySQL.pm?rev=22003&op=diff
==============================================================================
--- trunk/libtime-piece-mysql-perl/lib/Time/Piece/MySQL.pm (original)
+++ trunk/libtime-piece-mysql-perl/lib/Time/Piece/MySQL.pm Fri Jun 20 19:09:17 2008
@@ -1,7 +1,7 @@
package Time::Piece::MySQL;
use strict;
use vars qw($VERSION);
-$VERSION = '0.05';
+$VERSION = '0.06';
use Time::Piece;
@@ -13,8 +13,9 @@
BEGIN
{
+ # I don't know what this dst bug is, but the code was here...
my $has_dst_bug =
- Time::Piece->strptime( '20000601120000', '%Y%m%d%H%M%S' )->hour != 12;
+ Time::Piece->strptime( '20000601120000', '%Y %m %d %H %M %S' )->hour != 12;
sub HAS_DST_BUG () { $has_dst_bug }
}
@@ -70,6 +71,7 @@
# from MySQL 4.1 onward, timestamps are punctuated like datetimes
$timestamp =~ s/[-: ]//g;
my $length = length $timestamp;
+ return from_mysql_datetime(@_) if $length == 19;
# most timestamps have 2-digit years, except 8 and 14 char ones
if ( $length != 14 && $length != 8 ) {
$timestamp = (substr($timestamp, 0, 2) < 70 ? "20" : "19")
@@ -78,7 +80,7 @@
# now we need to extend this to 14 chars to make sure we get
# consistent cross-platform results
$timestamp .= substr("19700101000000", length $timestamp);
- my $time = eval {$class->strptime( $timestamp, '%Y%m%d%H%M%S')};
+ my $time = eval {$class->strptime( $timestamp, '%Y %m %d %H %M %S')};
return $time;
}
Modified: trunk/libtime-piece-mysql-perl/t/timestamp.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtime-piece-mysql-perl/t/timestamp.t?rev=22003&op=diff
==============================================================================
--- trunk/libtime-piece-mysql-perl/t/timestamp.t (original)
+++ trunk/libtime-piece-mysql-perl/t/timestamp.t Fri Jun 20 19:09:17 2008
@@ -11,7 +11,7 @@
'1202110545' => '20120211054500',
'120211054537' => '20120211054537',
'20120211054537' => '20120211054537',
- '2012-02-11 05:45:37' => '20120211054537',
+ '2005-08-10 23:20:48' => '20050810232048',
);
#my @null = qw/ 19691231235959 20380101000000 /;
More information about the Pkg-perl-cvs-commits
mailing list