From: minima <minima>
Date: Fri, 27 Oct 2000 22:35:14 +0000 (+0000)
Subject: fixed the syntax error
X-Git-Tag: R_1_45~80
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=acd7eca91e9d784b05d64f4c41eb8a4d2eb6ad6d;p=spider.git

fixed the syntax error
---

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};