From 82b6a3add627d151f749bc26d170e6bb4b80d526 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 7 Jun 2003 01:47:23 +0000 Subject: [PATCH] give a better error message regarding Time::Local on old perls. really. --- FS/FS/cust_main.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 923de00c4..0176c7723 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -4,8 +4,10 @@ use strict; use vars qw( @ISA $conf $Debug $import ); use Safe; use Carp; -BEGIN { eval "use Time::Local 1.05;" if $] < 5.006; }; -use Time::Local qw(timelocal_nocheck); +BEGIN { + eval "use Time::Local 1.05;" if $] < 5.006; + eval "use Time::Local qw(timelocal_nocheck);"; +} use Date::Format; #use Date::Manip; use Business::CreditCard; -- 2.11.0