diff options
author | ivan <ivan> | 2003-06-07 01:57:33 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-06-07 01:57:33 +0000 |
commit | 9533cf0292866372f32a80e61ea590f20005bf74 (patch) | |
tree | cb46c509a4e5478a02698ff6e2d35b58da624167 /FS | |
parent | 82b6a3add627d151f749bc26d170e6bb4b80d526 (diff) |
really, really give a better error message when used under 5.005 now. really.
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cust_main.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 0176c7723..079583a9a 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -5,7 +5,9 @@ use vars qw( @ISA $conf $Debug $import ); use Safe; use Carp; BEGIN { - eval "use Time::Local 1.05;" if $] < 5.006; + eval "use Time::Local;"; + die "Time::Local version 1.05 with Perl versions before 5.6" + if $] < 5.006 && !defined($Time::Local::VERSION); eval "use Time::Local qw(timelocal_nocheck);"; } use Date::Format; |