diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-14 04:57:45 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-14 04:57:45 +0000 |
| commit | 1f87ea3feafbdca9e08b3495ba5a1c3ccb49f2eb (patch) | |
| tree | 6d0a90a9552a48f7f44e297f55912c40975adb65 /Echolot/Pinger.pm | |
| parent | acbd6b07aa62bac5771dd2c6fd7f2d3eb8cf2bfe (diff) | |
Make changes really work - minor syntax stuff
Diffstat (limited to 'Echolot/Pinger.pm')
| -rw-r--r-- | Echolot/Pinger.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Echolot/Pinger.pm b/Echolot/Pinger.pm index 4e3c132..dcb03cc 100644 --- a/Echolot/Pinger.pm +++ b/Echolot/Pinger.pm @@ -1,7 +1,7 @@ package Echolot::Pinger; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Pinger.pm,v 1.23 2003/02/14 04:56:16 weasel Exp $ +# $Id: Pinger.pm,v 1.24 2003/02/14 04:57:45 weasel Exp $ # =pod @@ -22,7 +22,7 @@ use Echolot::Log; use Echolot::Pinger::Mix; use Echolot::Pinger::CPunk; -sub do_mix_ping($$$$$$) { +sub do_mix_ping($$$$$) { my ($address, $type, $keyid, $to, $body) = @_; ($type eq 'mix') or @@ -40,13 +40,13 @@ sub do_mix_ping($$$$$$) { return 1; }; -sub do_cpunk_ping($$$$$$) { +sub do_cpunk_ping($$$$$) { my ($address, $type, $keyid, $to, $body) = @_; my $keyhash = {}; if ($type ne 'cpunk-clear') { my %key = Echolot::Globals::get()->{'storage'}->get_key($address, $type, $keyid); - $keyhash->{$keyid} => \%key; + $keyhash->{$keyid} = \%key; }; Echolot::Pinger::CPunk::ping( $body, |