===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/MakeTorrents.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- openbsd/OpenBSDTorrents/MakeTorrents.pl	2005/04/06 23:56:50	1.10
+++ openbsd/OpenBSDTorrents/MakeTorrents.pl	2005/04/07 00:10:06	1.11
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: MakeTorrents.pl,v 1.10 2005/04/06 22:56:50 andrew Exp $
+#$Id: MakeTorrents.pl,v 1.11 2005/04/06 23:10:06 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -11,14 +11,20 @@
 
 %ENV = ();
 
-use YAML;
+chdir($OBT->{DIR_FTP}) || die "Couldn't change dir to " . $OBT->{DIR_FTP} . ": $!";
 
-my $StartDir = shift || $OBT->{BASENAME};
-$StartDir =~ s#/$##;
+my $StartDir = '';
+if (@ARGV) {
+	foreach (@ARGV) {
+		s#/$##;
+		Process_Dir($_);
+	}
+} else {
+	$StartDir = $OBT->{BASENAME};
+	Process_Dir($StartDir);
+}
 
-chdir($OBT->{DIR_FTP}) || die "Couldn't change dir to " . $OBT->{DIR_FTP} . ": $!";
 
-Process_Dir($StartDir);
 
 sub Process_Dir
 {