X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;fp=perl%2FDXProtHandle.pm;h=40271df7965877b6c4217b5ef5e1c36a1fef5006;hb=cfa6a715412c7c4972ec85034bd2d945751317cb;hp=5193a227043bb3d1a4a28430560ebf2a415f81c0;hpb=34f47f7d220c9244769f1c6360a92fcae18803ba;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 5193a227..40271df7 100644
--- 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;