Changeset 24471

Timestamp:

11/20/08 17:51:28 (5 years ago)

Author:

daisuke

Message:

fixes

Location:

lang/perl/DateTime-Lite/trunk

Files:

• lib/DateTime/Lite.pm (modified) (2 diffs)
• t/16truncate.t (modified) (1 diff)

lang/perl/DateTime-Lite/trunk/lib/DateTime/Lite.pm

@@ -61 +61 @@
     my $jd = $self->{utc_rd_days} + 1_721_424.5;
 
-    my $day_length = $self->_day_length( $self->{utc_rd_days} );
+    my $day_length = DateTime::Lite::LeapSecond::day_length( $self->{utc_rd_days} );
 
     return ( $jd +
@@ -120 +120 @@
         );
         while (my ($key, $value) = each %defaults) {
-            $p{$key} = $value unless exists $p{$key};
+            $p{$key} = $value unless defined $p{$key};
         }
     }

lang/perl/DateTime-Lite/trunk/t/16truncate.t

@@ -5 +5 @@
 use Test::More tests => 52;
 
-use DateTime::Lite;
+use DateTime::Lite qw(Arithmetic);
 
 my %vals =