X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=800fb5e74b26ce25ee86c1f24b20d006e4e6b31d;hb=de0ba7f4f90718f15f66a3a496c9a8a7f36faeae;hp=2de6a22ad7cdf220b567212e24800071fa88ca51;hpb=b736286d16b3c0e310df106f727ca2143a000e08;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 2de6a22a..800fb5e7 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -458,7 +458,7 @@ sub del_msg
 	my $self = shift;
 	
 	# remove it from the active message list
-	@msg = grep { $ref($_) && $_ != $self } @msg;
+	@msg = grep { ref($_) && $_ != $self } @msg;
 	
 	# belt and braces (one day I will ask someone if this is REALLY necessary)
 	delete $self->{gotit};