diff options
| -rw-r--r-- | FS/FS/cust_main.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 48c138467..8b9dedb26 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1598,7 +1598,7 @@ sub all_last { 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; } @@ -1611,7 +1611,7 @@ sub all_company { 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; } @@ -1663,7 +1663,7 @@ sub append_fuzzyfiles { =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 |