give a better error message regarding Time::Local on old perls. really.
authorivan <ivan>
Sat, 7 Jun 2003 01:47:23 +0000 (01:47 +0000)
committerivan <ivan>
Sat, 7 Jun 2003 01:47:23 +0000 (01:47 +0000)
FS/FS/cust_main.pm

index 923de00..0176c77 100644 (file)
@@ -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;