tidy up Route, add argument to sh/ver

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 5193a227043bb3d1a4a28430560ebf2a415f81c0..40271df7965877b6c4217b5ef5e1c36a1fef5006 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1480,7 +1480,7 @@ sub _add_thingy
        my @rout;
 
        # remove spurious IPV6 prefix on IPV4 addresses
-       $ip =~ s/^::ffff://;
+       $ip =~ s/^::ffff:// if $ip;
        
        if ($call) {
                my $ncall = $parent->call;