[Benson-commit] CVS: benson2/src/modules/Handlers/lib/Benson/Handlers Monitor.pm,1.8,1.9

[Bob T. <bt...@us...>]

Update of /cvsroot/benson/benson2/src/modules/Handlers/lib/Benson/Handlers
In directory usw-pr-cvs1:/tmp/cvs-serv25396/lib/Benson/Handlers

Modified Files:
	Monitor.pm 
Log Message:
Fixed the suppress bug, lying dormant

Index: Monitor.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/Handlers/lib/Benson/Handlers/Monitor.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** Monitor.pm	2001/05/30 03:21:57	1.8
--- Monitor.pm	2001/06/01 17:30:26	1.9
***************
*** 69,74 ****
  			# otherwise it appears in the hash list, and suppression handlers
  			# may try to suppress based on this.
! 			delete $alerts[$current_alert];
! 			my $clean_aref = \@alerts;
  
  			my $trap_ref = new Benson::Alert ($s,$clean_aref);
--- 69,76 ----
  			# otherwise it appears in the hash list, and suppression handlers
  			# may try to suppress based on this.
! 			my @clean_alerts = @alerts;
! 			delete $clean_alerts[$current_alert];
! 
! 			my $clean_aref = \@clean_alerts;
  
  			my $trap_ref = new Benson::Alert ($s,$clean_aref);