Changeset 24512

Timestamp:

11/20/08 23:37:10 (7 weeks ago)

Author:

daisuke

Message:

Catalog may not exist when using parse_catalog

Files:

• lang/perl/DateTime-Lite/trunk/lib/DateTime/Lite/TimeZone.pm (modified) (2 diffs)

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

@@ -3 +3 @@
 use warnings;
 
-# use DateTime::Lite::TimeZone::Catalog;
+BEGIN {
+    local $@;
+    local $SIG{__DIE__} = 'DEFAULT';
+    eval {
+        require DateTime::Lite::TimeZone::Catalog;
+    }
+}
 use DateTime::Lite::TimeZone::Floating;
 use DateTime::Lite::TimeZone::Local;
@@ -21 +27 @@
 use constant IS_DST      => 5;
 use constant SHORT_NAME  => 6;
-
-%DateTime::Lite::TimeZone::Catalog::LINKS;
 
 my %SpecialName = map { $_ => 1 } qw( EST MST HST CET EET MET WET EST5EDT CST6CDT MST7MDT PST8PDT );