I supppose something like this would fix the problem?
Index: lib/DateTime/Infinite.pm
===================================================================
RCS file: /cvsroot/perl-date-time/modules/DateTime.pm/lib/DateTime/Infinite.pm,v
retrieving revision 1.8
diff -d -u -r1.8 Infinite.pm
--- lib/DateTime/Infinite.pm 24 Jul 2003 04:24:16 -0000 1.8
+++ lib/DateTime/Infinite.pm 2 Aug 2004 07:23:17 -0000
@@ -27,6 +27,9 @@
return ($_[1]) x 3;
}
+sub STORABLE_freeze { return }
+sub STORABLE_thaw { return }
+
package DateTime::Infinite::Future;use base qw(DateTime::Infinite);
Max Campos wrote:
Just FYI -
Storable freeze seems to fail when running against a DateTime::Infinite::Future/Past object. I believe it's because $self->{locale} is not being defined.
I don't have a patch, but I thought you may want to at least scribble this one down in the bug tracker.
=============================================== use DateTime::Infinite; use Storable;
my $future = DateTime::Infinite::Future->new; Storable::freeze($future); ===============================================
Item #1 returned by STORABLE_freeze for DateTime::Infinite::Future is not a reference at ../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/_freeze.al) line 282, at foo line 5
