From 1f87ea3feafbdca9e08b3495ba5a1c3ccb49f2eb Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Fri, 14 Feb 2003 04:57:45 +0000 Subject: Make changes really work - minor syntax stuff --- Echolot/Pinger.pm | 8 ++++---- 1 file 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 -# $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, -- cgit v1.2.3