X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FRoute%2FUser.pm;h=d9d5249c459d21c5ade0bd143134af3657b49efe;hp=3a6f4f327b030a628c9f9a0c8f6309f864de4566;hb=689155304c3c1bf0787ecea54a4043145d7aa2fe;hpb=bb3889c1d4930e2ca96b47aea10ce5e803737043 diff --git a/perl/Route/User.pm b/perl/Route/User.pm index 3a6f4f32..d9d5249c 100644 --- a/perl/Route/User.pm +++ b/perl/Route/User.pm @@ -113,7 +113,7 @@ sub write_cache } }; if (!$@ && @s) { - my $fh = IO::File->new(">$cachefn") or confess("writing $cachefn $!"); + my $fh = IO::File->new(">$cachefn") or carp("writing $cachefn $!"); print $fh $_ for (sort @s); $fh->close; } else { @@ -132,14 +132,14 @@ sub read_cache my $ta = [ gettimeofday ]; my $count; - my $fh = IO::File->new("$cachefn") or confess("reading $cachefn $!"); + my $fh = IO::File->new("$cachefn") or carp("reading $cachefn $!"); while (my $l = <$fh>) { chomp $l; my ($k, $v) = split /:/, $l, 2; - $list{$k} = bless $json->decode($v) or confess("json error decoding '$v'"); + $list{$k} = bless $json->decode($v) or carp("json error decoding '$v'"); ++$count; } - $fh->close; + $fh->close if $fh; my $diff = _diffms($ta); dbg("Route::User::read_cache time to read $count records from $cachefn : $diff mS");