fix missing under test

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4b34975c2b00920d7811c8b9c6ac6c4b6a357fb9..612e59b6c93e62fbefa1a52a6dc4823ed5e001a1 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1049,7 +1049,7 @@ sub handle_19
                my $flags = Route::here($here)|Route::conf($conf);
 
                # is he under the control of the new protocol?
-               if ($r->np) {
+               if ($r && $r->np) {
                        dbg("PCPROT: $call aranea node, ignored") if isdbg('chanerr');
                        next;
                }