[Jifty-commit] r2160 - in jifty/trunk: lib/Jifty t

jifty-commit at lists.jifty.org jifty-commit at lists.jifty.org
Wed Nov 15 05:21:57 EST 2006


Author: schwern
Date: Wed Nov 15 05:21:57 2006
New Revision: 2160

Added:
   jifty/trunk/t/DateTime.t
Modified:
   jifty/trunk/   (props changed)
   jifty/trunk/lib/Jifty/DateTime.pm

Log:
 r25998 at windhund:  schwern | 2006-11-15 02:14:39 -0800
 Jifty::DateTime->new_from_string did not accept a Jifty::DateTime object (which
 can stringify)


Modified: jifty/trunk/lib/Jifty/DateTime.pm
==============================================================================
--- jifty/trunk/lib/Jifty/DateTime.pm	(original)
+++ jifty/trunk/lib/Jifty/DateTime.pm	Wed Nov 15 05:21:57 2006
@@ -7,6 +7,7 @@
 
 Jifty::DateTime - a DateTime subclass that knows about Jifty users
 
+
 =head1 DESCRIPTION
 
 Jifty natively stores timestamps in the database in GMT.  Dates are stored
@@ -69,6 +70,11 @@
     my $class  = shift;
     my $string = shift;
     my $now;
+
+    # Date::Manip does not play nice with string overloaded objects.
+    # Force stringification of any date object
+    $string .= "";
+
     {
         # Date::Manip interprets days of the week (eg, ''monday'') as
         # days within the *current* week. Detect these and prepend

Added: jifty/trunk/t/DateTime.t
==============================================================================
--- (empty file)
+++ jifty/trunk/t/DateTime.t	Wed Nov 15 05:21:57 2006
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -w
+
+use Jifty::Test tests => 3;
+
+use_ok 'Jifty::DateTime';
+
+my $date = Jifty::DateTime->new_from_string("2006-05-03 01:23:45");
+my $date_clone = eval {
+    Jifty::DateTime->new_from_string($date);
+};
+is $@, '', "new_from_string() can handle string overloaded objects";
+is $date, $date_clone;


More information about the Jifty-commit mailing list