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
/
Node.pm
diff --git
a/perl/Route/Node.pm
b/perl/Route/Node.pm
index baa862ae754ef76279ec4a07dab345457f294c91..630db0468cc5c129908069b6765fc1fef6efe33f 100644
(file)
--- a/
perl/Route/Node.pm
+++ b/
perl/Route/Node.pm
@@
-411,7
+411,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 {
@@
-431,14
+431,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::Node::read_cache time to read $count records from $cachefn : $diff mS");
my $diff = _diffms($ta);
dbg("Route::Node::read_cache time to read $count records from $cachefn : $diff mS");