===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2010/03/08 20:19:35	1.35
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2010/03/16 23:37:32	1.36
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$RedRiver: CurrentTorrents.pl,v 1.34 2010/03/03 18:31:57 andrew Exp $
+#$RedRiver: CurrentTorrents.pl,v 1.35 2010/03/08 20:19:35 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -58,7 +58,11 @@
             $name = $base;
         }
 
-        #print "Adding $_\n";
+        #print "Adding $DIR/$_\n";
+
+	if (exists $files{$ext}{$name}{$epoch}) {
+		warn "Multiple torrents with $name and epoch $epoch\n";
+	}
 
         $files{$ext}{$name}{$epoch} = {
             file => $_,