fix problem fpr perl < 5.6

diff --git a/Changes b/Changes
index eabf6097ab939d4d6a45b345e8059e71459126b7..1b5f587c1058a9504e34845c3b61be3a2ace3646 100644 (file)
--- 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 2483d2732705a8f566ae359ca86fd8a194d98167..61068e06b2f7e5df80cd4275b33627eca633edd6 100644 (file)
--- 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;
 }