===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/NewTorrents.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- openbsd/OpenBSDTorrents/NewTorrents.pl	2005/03/24 05:28:08	1.1
+++ openbsd/OpenBSDTorrents/NewTorrents.pl	2005/03/24 05:32:49	1.2
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: NewTorrents.pl,v 1.1 2005/03/24 05:28:08 andrew Exp $
+#$Id: NewTorrents.pl,v 1.2 2005/03/24 05:32:49 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -20,12 +20,20 @@
 		my ($dir, $file) = $file =~ m#^(.*)/([^/]+)#;
 		#print "$dir - $file\n";
 		if ($last_dir && $last_dir ne $dir) {
-			# This actually needs to be a sub that forks off 
-			# the generation of this, and the running of the update script.
-			print "MakeTorrent.pl $BaseName/$dir\n";
+			StartTorrent($last_dir);
 		}
 		$last_dir = $dir;
 	} else {
 		#print $_;
 	}
+}
+StartTorrent($last_dir);
+
+sub StartTorrent
+{
+	my $dir = shift;
+
+	# This actually needs to be a sub that forks off 
+	# the generation of this, and the running of the update script.
+	print "MakeTorrents.pl $BaseName/$dir\n";
 }