projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow route cache reading to continue if files missing
[spider.git]
/
perl
/
Route
/
User.pm
diff --git
a/perl/Route/User.pm
b/perl/Route/User.pm
index 3a6f4f327b030a628c9f9a0c8f6309f864de4566..d9d5249c459d21c5ade0bd143134af3657b49efe 100644
(file)
--- a/
perl/Route/User.pm
+++ b/
perl/Route/User.pm
@@
-113,7
+113,7
@@
sub write_cache
}
};
if (!$@ && @s) {
}
};
if (!$@ && @s) {
- my $fh = IO::File->new(">$cachefn") or c
onfess
("writing $cachefn $!");
+ my $fh = IO::File->new(">$cachefn") or c
arp
("writing $cachefn $!");
print $fh $_ for (sort @s);
$fh->close;
} else {
print $fh $_ for (sort @s);
$fh->close;
} else {
@@
-132,14
+132,14
@@
sub read_cache
my $ta = [ gettimeofday ];
my $count;
my $ta = [ gettimeofday ];
my $count;
- my $fh = IO::File->new("$cachefn") or c
onfess
("reading $cachefn $!");
+ my $fh = IO::File->new("$cachefn") or c
arp
("reading $cachefn $!");
while (my $l = <$fh>) {
chomp $l;
my ($k, $v) = split /:/, $l, 2;
while (my $l = <$fh>) {
chomp $l;
my ($k, $v) = split /:/, $l, 2;
- $list{$k} = bless $json->decode($v) or c
onfess
("json error decoding '$v'");
+ $list{$k} = bless $json->decode($v) or c
arp
("json error decoding '$v'");
++$count;
}
++$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");
my $diff = _diffms($ta);
dbg("Route::User::read_cache time to read $count records from $cachefn : $diff mS");