my $dir = $FS::UID::conf_dir. "cache.". $FS::UID::datasrc;
open(LASTCACHE,"<$dir/cust_main.last")
or die "can't open $dir/cust_main.last: $!";
- my @array = map chomp, <LASTCACHE>;
+ my @array = map { chomp; $_; } <LASTCACHE>;
close LASTCACHE;
\@array;
}
my $dir = $FS::UID::conf_dir. "cache.". $FS::UID::datasrc;
open(COMPANYCACHE,"<$dir/cust_main.company")
or die "can't open $dir/cust_main.last: $!";
- my @array = map chomp, <COMPANYCACHE>;
+ my @array = map { chomp; $_; } <COMPANYCACHE>;
close COMPANYCACHE;
\@array;
}
=head1 VERSION
-$Id: cust_main.pm,v 1.33 2001-09-20 00:10:51 ivan Exp $
+$Id: cust_main.pm,v 1.34 2001-09-20 00:13:07 ivan Exp $
=head1 BUGS