From acd7eca91e9d784b05d64f4c41eb8a4d2eb6ad6d Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 27 Oct 2000 22:35:14 +0000 Subject: [PATCH] fixed the syntax error --- perl/DXMsg.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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}; -- 2.43.0