[popfile-commit] engine/POPFile MQ.pm,1.2,1.3

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/POPFile
In directory sc8-pr-cvs1:/tmp/cvs-serv16055/POPFile

Modified Files:
	MQ.pm 
Log Message:
Improve test suite coverage for MQ, Module and Logger.  Now at 100%

Index: MQ.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/MQ.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** MQ.pm	9 Jul 2003 18:18:19 -0000	1.2
--- MQ.pm	12 Jul 2003 00:43:20 -0000	1.3
***************
*** 89,102 ****
      for my $type (keys %{$self->{queue__}}) {
           while ( my $ref = shift @{$self->{queue__}{$type}} ) {
!   	    if ( defined( $ref ) ) {
! 	        for my $waiter (@{$self->{waiters__}{$type}}) {
!                     my $message   = @$ref[0];
!                     my $parameter = @$ref[1];
  
!                     $waiter->deliver( $type, $message, $parameter );
! 		}
! 	    } else {
!                 last;
!             }
  	}
      }
--- 89,98 ----
      for my $type (keys %{$self->{queue__}}) {
           while ( my $ref = shift @{$self->{queue__}{$type}} ) {
!              for my $waiter (@{$self->{waiters__}{$type}}) {
!                 my $message   = @$ref[0];
!                 my $parameter = @$ref[1];
  
!                 $waiter->deliver( $type, $message, $parameter );
! 	    }
  	}
      }