=================================================================== RCS file: /cvs/openbsd/OpenBSDTorrents/NewTorrents.pl,v retrieving revision 1.14 retrieving revision 1.16 diff -u -r1.14 -r1.16 --- openbsd/OpenBSDTorrents/NewTorrents.pl 2009/10/20 20:03:25 1.14 +++ openbsd/OpenBSDTorrents/NewTorrents.pl 2010/03/08 20:19:37 1.16 @@ -1,5 +1,5 @@ #!/usr/bin/perl -T -#$RedRiver: NewTorrents.pl,v 1.13 2007/11/02 02:35:07 andrew Exp $ +#$RedRiver: NewTorrents.pl,v 1.15 2010/03/03 18:23:46 andrew Exp $ use strict; use warnings; use diagnostics; @@ -80,10 +80,10 @@ return if ! %Need_Update; my $count = scalar keys %Need_Update; - print "Need to make $count waiting torrents\n"; + print "Have $count waiting torrents\n"; } else { - print "Need to make torrent for '$dir'\n"; + #print "Need to make torrent for '$dir'\n"; $dir = $OBT->{BASENAME} . "/$dir"; $Need_Update{$dir} = 1; } @@ -106,6 +106,7 @@ } + print "\n"; if (@now_update) { print "Making torrents for ", join(" ", @now_update), "\n"; } else {