eval "use Time::Local;";
die "Time::Local version 1.05 required with Perl versions before 5.6"
if $] < 5.006 && !defined($Time::Local::VERSION);
- eval "use Time::Local qw(timelocal_nocheck);";
+ eval "use Time::Local qw(timelocal timelocal_nocheck);";
}
use Date::Format;
#use Date::Manip;
&& $_->status eq 'done'
&& $_->statustext
}
- $_->cust_bill_event;
+ $cust_bill->cust_bill_event;
next unless @cust_bill_event;
my $error = $cust_bill_event[0]->retry;
if ( $error ) {