Changeset 24506

Timestamp:

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

Author:

daisuke

Message:

no no, no DateTime? allowed here

Files:

• lang/perl/DateTime-Lite/trunk/lib/DateTime/Lite/OlsonDB.pm (modified) (5 diffs)

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

@@ -197 +197 @@
         my $dow = $DateTime::Lite::OlsonDB::DAYS{$1};
 
-        my $last_day = DateTime->last_day_of_month( year  => $year,
+        my $last_day = DateTime::Lite->last_day_of_month( year  => $year,
                                                     month => $month,
                                                     time_zone => 'floating',
@@ -203 +203 @@
 
         my $dt =
-            DateTime->new( year   => $year,
+            DateTime::Lite->new( year   => $year,
                            month  => $month,
                            day    => $last_day->day,
@@ -220 +220 @@
         my $dow = $DateTime::Lite::OlsonDB::DAYS{$1};
 
-        my $dt = DateTime->new( year   => $year,
+        my $dt = DateTime::Lite->new( year   => $year,
                                 month  => $month,
                                 day    => $3,
@@ -275 +275 @@
     if ($is_utc)
     {
-        $utc = DateTime->new( year   => $p{year},
+        $utc = DateTime::Lite->new( year   => $p{year},
                               month  => $p{month},
                               day    => $p{day},
@@ -286 +286 @@
     else
     {
-        my $local = DateTime->new( year   => $p{year},
+        my $local = DateTime::Lite->new( year   => $p{year},
                                    month  => $p{month},
                                    day    => $p{day},