projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e4366c3
)
fix problem fpr perl < 5.6
author
minima
<minima>
Sat, 5 Feb 2005 21:00:50 +0000
(21:00 +0000)
committer
minima
<minima>
Sat, 5 Feb 2005 21:00:50 +0000
(21:00 +0000)
Changes
patch
|
blob
|
history
perl/Thingy.pm
patch
|
blob
|
history
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.
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
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";
} 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;
}
}
$chan->send(@out) if @out;
}