Changeset 24486

Timestamp:

11/20/08 18:43:33 (7 weeks ago)

Author:

daisuke

Message:

minor fixes

Location:

lang/perl/DateTime-Lite/trunk

Files:

• lib/DateTime/Lite.pm (modified) (1 diff)
• lib/DateTime/Lite/TimeZone.pm (modified) (3 diffs)
• t/36invalid_local.t (modified) (1 diff)
• t/timezone/09changes.t (modified) (1 diff)
• t/timezone/11valid-name.t (modified) (1 diff)

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

@@ -794 +794 @@
 sub is_infinite { 0 }
 
+# added for benefit of DateTime::TimeZone
+sub utc_year { $_[0]->{utc_year} }
+
+
 sub leap_seconds
 {

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

@@ -3 +3 @@
 use warnings;
 
-use DateTime::TimeZone::Catalog;
+use DateTime::Lite::TimeZone::Catalog;
 use DateTime::Lite::TimeZone::Floating;
 # use DateTime::Lite::TimeZone::Local;
 use DateTime::Lite::TimeZone::OffsetOnly;
 use DateTime::Lite::TimeZone::UTC;
+use DateTime::Lite::OlsonDB;
 use YAML();
 
@@ -83 +84 @@
     return YAML::LoadFile("misc/timezone/$file");
 }
+
+sub _rules { $_[0]->{_rules} }
+sub _max_year { $_[0]->{_max_year} }
 
 sub is_olson { $_[0]->{is_olson} }
@@ -256 +260 @@
     my @changes;
     my @rules = @{ $self->_rules };
-    foreach my $year ( $self->{max_year} .. $generate_until_year )
+    foreach my $year ( $self->_max_year .. $generate_until_year )
     {
         for ( my $x = 0; $x < @rules; $x++ )

lang/perl/DateTime-Lite/trunk/t/36invalid_local.t

@@ -5 +5 @@
 use Test::More tests => 4;
 
-use DateTime::Lite;
+use DateTime::Lite qw(Arithmetic);
 
 

lang/perl/DateTime-Lite/trunk/t/timezone/09changes.t

@@ -7 +7 @@
 use lib File::Spec->catdir( File::Spec->curdir, 't' );
 
+use DateTime::Lite qw(Arithmetic);
+use Datetime::Lite::TimeZone;
 
 plan tests => 101;

lang/perl/DateTime-Lite/trunk/t/timezone/11valid-name.t

@@ -7 +7 @@
 use lib File::Spec->catdir( File::Spec->curdir, 't' );
 
-
+use DateTime::Lite::TimeZone;
 plan tests => 13;