From cb81b596e7c096e811cc5c95111ba7967b159035 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Sat, 22 Feb 2003 15:11:27 +0000 Subject: Sort intensive care list --- Echolot/Chain.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Echolot') 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 -# $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)"); }; -- cgit v1.2.3