[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