[Jifty-commit] r779 - in jifty/trunk: lib/Jifty/Action

[jifty-commit at lists.jifty.org]

Author: jesse
Date: Fri Mar 31 03:27:44 2006
New Revision: 779

Modified:
   jifty/trunk/   (props changed)
   jifty/trunk/Makefile.PL
   jifty/trunk/lib/Jifty/Action/Record.pm

Log:
 r10651 at hualien:  jesse | 2006-03-31 17:23:52 +0900
 * Switch from Time::ParseDate to Date::Manip, since the former isn't win32 compatible


Modified: jifty/trunk/Makefile.PL
==============================================================================
--- jifty/trunk/Makefile.PL	(original)
+++ jifty/trunk/Makefile.PL	Fri Mar 31 03:27:44 2006
@@ -13,6 +13,7 @@
 requires('Compress::Zlib');
 requires('DBD::SQLite');
 requires('Data::Page');
+requires('Date::Manip');
 requires('Digest::MD5');
 requires('Email::Folder');
 requires('Email::LocalDelivery');
@@ -51,7 +52,6 @@
 requires('Test::Pod::Coverage');
 requires('Test::WWW::Mechanize');
 requires('Time::HiRes');
-requires('Time::ParseDate');
 requires('UNIVERSAL::require');
 requires('URI');
 requires('WWW::Mechanize' => 1.12);

Modified: jifty/trunk/lib/Jifty/Action/Record.pm
==============================================================================
--- jifty/trunk/lib/Jifty/Action/Record.pm	(original)
+++ jifty/trunk/lib/Jifty/Action/Record.pm	Fri Mar 31 03:27:44 2006
@@ -1,6 +1,6 @@
 use warnings;
 use strict;
-use Time::ParseDate ();
+use Date::Manip ();
 package Jifty::Action::Record;
 
 =head1 NAME
@@ -247,7 +247,7 @@
     my $self = shift;
     my $val = shift;
     return undef unless defined $val and $val =~ /\S/;
-    my $epoch =  Time::ParseDate::parsedate($val, FUZZY => 1, PREFER_FUTURE => 1, GMT =>0) || '';
+    my $epoch =  Date::Manip::UnixDate(Date::Manip::ParseDate($val),'%s');
     return undef unless $epoch;
     my $dt  = DateTime->from_epoch( epoch =>$epoch, time_zone => 'local');
     return $dt->ymd;