From 2123fb6af0fa319ff43286580d035e8f986e4397 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Mon, 17 Feb 2003 07:22:49 +0000 Subject: Some changes wrt what we consider for intensive care and changes to timers --- Echolot/Chain.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Echolot/Chain.pm') diff --git a/Echolot/Chain.pm b/Echolot/Chain.pm index 2f2ca52..02604ad 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.6 2003/02/16 10:07:27 weasel Exp $ +# $Id: Chain.pm,v 1.7 2003/02/17 07:22:49 weasel Exp $ # =pod @@ -195,7 +195,11 @@ sub set_intensive_care($@) { my ($chaintype, $intensive_care) = @_; %{$INTENSIVE_CARE{$chaintype}} = map { ($_->{'addr1'}.' '.$_->{'addr2'}) => $_->{'reason'} } @$intensive_care; - Echolot::Log::debug("intensive care $chaintype:\n" . join("\n", map { "\t\t$_: $INTENSIVE_CARE{$chaintype}->{$_}" } keys %{$INTENSIVE_CARE{$chaintype}} )); + if (scalar @$intensive_care) { + Echolot::Log::debug("intensive care $chaintype:\n" . join("\n", map { "\t\t$_: $INTENSIVE_CARE{$chaintype}->{$_}" } keys %{$INTENSIVE_CARE{$chaintype}} )); + } else { + Echolot::Log::debug("intensive care $chaintype: (none)"); + }; }; sub receive($$$) { -- cgit v1.2.3