diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-07-08 23:51:37 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-07-08 23:51:37 +0000 |
| commit | 2b927b2b390677e4f3cad75c8fb9966c1f0b2c9b (patch) | |
| tree | c21a6fbde5ff116c3827394d2aaab9fd870dc63e | |
| parent | 9ae3336f1ddca573896ea500e397e58a13c36908 (diff) | |
Fix chain pinging type Type I
| -rw-r--r-- | Echolot/Chain.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Echolot/Chain.pm b/Echolot/Chain.pm index 3e42be5..5bff365 100644 --- a/Echolot/Chain.pm +++ b/Echolot/Chain.pm @@ -1,7 +1,7 @@ package Echolot::Chain; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Chain.pm,v 1.17 2003/06/09 18:57:41 weasel Exp $ +# $Id: Chain.pm,v 1.18 2003/07/08 23:51:37 weasel Exp $ # =pod @@ -138,7 +138,7 @@ sub send_pings($;$$) { my $type; my %supports = map { $_ => 1 } Echolot::Globals::get()->{'storage'}->get_types($addr); for my $thistype (@{Echolot::Config::get()->{'which_chainpings'}->{$chaintype}}) { - $type = $thistype, last if $supports{$chaintype}; + $type = $thistype, last if $supports{$thistype}; }; next unless $type; my $key; |