projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix no_node_in_dupe
[spider.git]
/
perl
/
Route
/
Node.pm
diff --git
a/perl/Route/Node.pm
b/perl/Route/Node.pm
index 630db0468cc5c129908069b6765fc1fef6efe33f..69d043d81e8fd154bcc8f977549a8b28a86220d9 100644
(file)
--- a/
perl/Route/Node.pm
+++ b/
perl/Route/Node.pm
@@
-401,7
+401,7
@@
sub TO_JSON { return { %{ shift() } }; }
sub write_cache
{
my $json = DXJSON->new;
sub write_cache
{
my $json = DXJSON->new;
- $json->canonical(isdbg('routecache'));
+ $json->canonical(isdbg('routecache')
||0
);
my $ta = [ gettimeofday ];
my @s;
my $ta = [ gettimeofday ];
my @s;
@@
-411,7
+411,7
@@
sub write_cache
}
};
if (!$@ && @s) {
}
};
if (!$@ && @s) {
- my $fh = IO::File->new(">$cachefn") or
carp("writing $cachefn $!")
;
+ my $fh = IO::File->new(">$cachefn") or
dbg("Route::Node: Error writing $cachefn $!"), return
;
print $fh "$_" for (sort @s);
$fh->close;
} else {
print $fh "$_" for (sort @s);
$fh->close;
} else {
@@
-431,11
+431,11
@@
sub read_cache
my $ta = [ gettimeofday ];
my $count;
my $ta = [ gettimeofday ];
my $count;
- my $fh = IO::File->new("$cachefn") or
carp("reading $cachefn $!")
;
+ my $fh = IO::File->new("$cachefn") or
dbg("Route::Node ERROR reading $cachefn $!"), return
;
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 carp("
json error decoding '$v'")
;
+ $list{$k} = bless $json->decode($v) or carp("
Route::Node json error $! decoding '$v'"), next
;
++$count;
}
$fh->close if $fh;;
++$count;
}
$fh->close if $fh;;