=================================================================== RCS file: /cvs/openbsd/OpenBSDTorrents/NewTorrents.pl,v retrieving revision 1.7 retrieving revision 1.9 diff -u -r1.7 -r1.9 --- openbsd/OpenBSDTorrents/NewTorrents.pl 2005/05/02 22:47:48 1.7 +++ openbsd/OpenBSDTorrents/NewTorrents.pl 2006/05/15 19:47:04 1.9 @@ -1,5 +1,5 @@ #!/usr/bin/perl -T -#$Id: NewTorrents.pl,v 1.7 2005/05/02 21:47:48 andrew Exp $ +#$RedRiver: 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); }