summaryrefslogtreecommitdiff
path: root/Echolot/Chain.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-02-22 15:11:27 +0000
committerPeter Palfrader <peter@palfrader.org>2003-02-22 15:11:27 +0000
commitcb81b596e7c096e811cc5c95111ba7967b159035 (patch)
tree8f97159abaafef021749fab13a3a6c9c14c3a7c4 /Echolot/Chain.pm
parent46a46ca4e6b6405875ff0403cc0b49970d563866 (diff)
Sort intensive care list
Diffstat (limited to 'Echolot/Chain.pm')
-rw-r--r--Echolot/Chain.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/Echolot/Chain.pm b/Echolot/Chain.pm
index b974ebf..b695301 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.15 2003/02/21 22:59:07 weasel Exp $
+# $Id: Chain.pm,v 1.16 2003/02/22 15:11:27 weasel Exp $
#
=pod
@@ -200,7 +200,7 @@ sub set_intensive_care($@) {
%{$INTENSIVE_CARE{$chaintype}} = map { ($_->{'addr1'}.' '.$_->{'addr2'}) => $_->{'reason'} } @$intensive_care;
if (scalar @$intensive_care) {
- Echolot::Log::debug("intensive care $chaintype:\n" . join("\n", map { "$_: $INTENSIVE_CARE{$chaintype}->{$_}" } keys %{$INTENSIVE_CARE{$chaintype}} ));
+ Echolot::Log::debug("intensive care $chaintype:\n" . join("\n", sort { $a cmp $b } map { "$_: $INTENSIVE_CARE{$chaintype}->{$_}" } keys %{$INTENSIVE_CARE{$chaintype}} ));
} else {
Echolot::Log::debug("intensive care $chaintype: (none)");
};