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

cvsuser     06/02/07 05:59:32

  Modified:    App-WorkQueue/lib/App/WorkQueue Repository.pm
  Log:
  fix printing to file rather than STDOUT
  
  Revision  Changes    Path
  1.2       +2 -2      p5ee/App-WorkQueue/lib/App/WorkQueue/Repository.pm
  
  Index: Repository.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-WorkQueue/lib/App/WorkQueue/Repository.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- Repository.pm	6 Feb 2006 04:11:44 -0000	1.1
  +++ Repository.pm	7 Feb 2006 13:59:32 -0000	1.2
  @@ -402,7 +402,7 @@
       $self->_sort_spec_to_options(\%options);
       my $rows = $db->get_rows($self->{table}, {}, $columns, \%options);
       foreach my $row (@$rows) {
  -        print "   [", join("|",@$row), "]\n";
  +        print $fh "   [", join("|",@$row), "]\n";
       }
       &App::sub_exit() if ($App::trace);
   }