From: ivan <ivan>
Date: Sat, 7 Jun 2003 01:47:25 +0000 (+0000)
Subject: give a better error message regarding Time::Local on old perls.  really.
X-Git-Tag: freeside_1_4_1rc4~34
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=dd4eef1ea9963aaf815638976f4a81b59cdee5a2

give a better error message regarding Time::Local on old perls.  really.
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 064993296..b6c19e70e 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;