From: minima <minima>
Date: Sat, 5 Feb 2005 21:00:50 +0000 (+0000)
Subject: fix problem fpr perl < 5.6
X-Git-Tag: R_1_52~210
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=849e28c79f3d3e19db3429f965b10426362fe04f

fix problem fpr perl < 5.6
---

diff --git a/Changes b/Changes
index eabf6097..1b5f587c 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@
 mail not being deleted until a restart was done.
 2. As well as a duplicate check on existing bulletins, I have added a check 
 the message is not (already) too old. 
+3. fix problem for perl < 5.6 in Thingy.pm 
 03Feb05=======================================================================
 1. Added latest Spanish translations courtesy of Angel EA7WA.
 2. Force all languages to use pr in en in Messages, as the prompt is
diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index 2483d273..61068e06 100644
--- a/perl/Thingy.pm
+++ b/perl/Thingy.pm
@@ -50,7 +50,7 @@ sub send
 	} else {
 		no strict 'refs';
 		my $sub = "gen_$class";
-		push @out, $thing->$sub if $thing->can($sub);
+		push @out, $thing->$sub() if $thing->can($sub);
 	}
 	$chan->send(@out) if @out;
 }