blob: d1720ebd38b82013c812bce62e3a762cfb03283e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- bsmonitor/Statusmon/bs_evgen.pm.orig Sat Feb 28 16:47:57 2004
+++ bsmonitor/Statusmon/bs_evgen.pm Sat Feb 28 16:47:30 2004
@@ -405,7 +405,7 @@
elsif( $event->{"cmd"} eq "remove" ) {
my $host = $event->{"host"};
my $check = $event->{"check"};
- foreach my $queuename qw( alarms new_alarms old_alarms ) {
+ foreach my $queuename (qw( alarms new_alarms old_alarms )) {
my $queue = $self->{$queuename};
for( my $i=$#$queue; $i>=0; $i-- ) {
my $alarm = $queue->[$i];
|
