diff options
| -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; |