various fixes

[spider.git] / perl / Route / Node.pm

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index c70682040e31bec42d67986cae10c6084850b3b3..3e0c3b0888c6b2305dbc4f4616cf0e5dbb4fcec8 100644 (file)
--- 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