=================================================================== RCS file: /cvs/openbsd/OpenBSDTorrents/NewTorrents.pl,v retrieving revision 1.7 retrieving revision 1.8 diff -u -r1.7 -r1.8 --- openbsd/OpenBSDTorrents/NewTorrents.pl 2005/05/02 22:47:48 1.7 +++ openbsd/OpenBSDTorrents/NewTorrents.pl 2005/05/05 02:07:16 1.8 @@ -1,5 +1,5 @@ #!/usr/bin/perl -T -#$Id: NewTorrents.pl,v 1.7 2005/05/02 21:47:48 andrew Exp $ +#$Id: NewTorrents.pl,v 1.8 2005/05/05 01:07:16 andrew Exp $ use strict; use warnings; use diagnostics; @@ -61,7 +61,7 @@ my $should_fork = 1; if ($dir eq 'skip') { - $dir = ''; + #$dir = ''; %Need_Update = (); $should_fork = 0; } else { @@ -93,6 +93,7 @@ print "Making torrents for ", join(" ", @now_update), "\n"; } else { print "Remaking all torrents\n"; + push @now_update, $dir; } exec($OBT->{DIR_HOME} . '/regen.sh', @now_update); }