[popfile-commit] engine/POPFile MQ.pm,1.4,1.5

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

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

Modified Files:
	MQ.pm 
Log Message:
Sort queues for consistency across Perl versions

Index: MQ.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/MQ.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MQ.pm	26 Jul 2003 18:28:28 -0000	1.4
--- MQ.pm	31 Jul 2003 01:54:31 -0000	1.5
***************
*** 87,91 ****
      # Iterate through all the messages in all the queues
  
!     for my $type (keys %{$self->{queue__}}) {
           while ( my $ref = shift @{$self->{queue__}{$type}} ) {
               for my $waiter (@{$self->{waiters__}{$type}}) {
--- 87,91 ----
      # Iterate through all the messages in all the queues
  
!     for my $type (sort keys %{$self->{queue__}}) {
           while ( my $ref = shift @{$self->{queue__}{$type}} ) {
               for my $waiter (@{$self->{waiters__}{$type}}) {