X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;h=3e0c3b0888c6b2305dbc4f4616cf0e5dbb4fcec8;hb=5f756bad4a3629664e4e3bc4d9cdd60674503583;hp=c70682040e31bec42d67986cae10c6084850b3b3;hpb=febdc9bd8f6cd065d217ba089fab4361e9980f35;p=spider.git diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm index c7068204..3e0c3b08 100644 --- a/perl/Route/Node.pm +++ b/perl/Route/Node.pm @@ -219,7 +219,9 @@ sub get { my $call = shift; $call = shift if ref $call; - return $list{uc $call}; + my $ref = $list{uc $call}; + dbg('routerr', "Failed to get Node $call" ) unless $ref; + return $ref; } sub get_all