cvs commit: p5ee/App-WorkQueue/lib/App WorkQueue.pm

cvsuser     06/02/07 08:18:18

  Modified:    App-WorkQueue/lib/App WorkQueue.pm
  Log:
  print BUFFER_SIZE in the resource counts
  
  Revision  Changes    Path
  1.2       +5 -3      p5ee/App-WorkQueue/lib/App/WorkQueue.pm
  
  Index: WorkQueue.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-WorkQueue/lib/App/WorkQueue.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- WorkQueue.pm	6 Feb 2006 04:12:07 -0000	1.1
  +++ WorkQueue.pm	7 Feb 2006 16:18:18 -0000	1.2
  @@ -937,9 +937,11 @@
       $fh = \*STDOUT if (!$fh);
       my $resource_counts = $self->_resource_counts();
       foreach my $resource_key (sort keys %{$resource_counts->{total}}) {
  -        printf $fh "   %7s => %8d=tot %8d=buf\n", $resource_key,
  +        printf $fh "   %7s => %8d=tot %8d=buf %8d=BUFSIZE\n",
  +            $resource_key,
               $resource_counts->{total}{$resource_key},
  -            $resource_counts->{buffer}{$resource_key};
  +            $resource_counts->{buffer}{$resource_key},
  +            $self->{BUFFER_SIZE};
       }
       &App::sub_exit() if ($App::trace);
   }