fix tabs -> spaces

can delete the first file with the same name and epoch. It is what I would do anyway.
afresh1 · Sep 3, 2012 · a0d3835 · a0d3835
1 parent 14ad319
commit a0d3835
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/CurrentTorrents.pl b/CurrentTorrents.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$RedRiver: CurrentTorrents.pl,v 1.35 2010/03/08 20:19:35 andrew Exp $
+#$RedRiver: CurrentTorrents.pl,v 1.36 2010/03/16 22:37:32 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -60,9 +60,10 @@
 
         #print "Adding $DIR/$_\n";
 
-	if (exists $files{$ext}{$name}{$epoch}) {
-		warn "Multiple torrents with $name and epoch $epoch\n";
-	}
+        if (exists $files{$ext}{$name}{$epoch}) {
+            warn "Multiple torrents with $name and epoch $epoch\n";
+            push @delete, $files{$ext}{$name}{$epoch};
+        }
 
         $files{$ext}{$name}{$epoch} = {
             file => $_,
@@ -211,7 +212,7 @@
             or die "Couldn't rename '$file': $!";
 
         $dir = $OBT->{DIR_TORRENT};
-	$keep{$hash}{dir} = $dir;
+        $keep{$hash}{dir} = $dir;
 
         if ( exists $files{txt}{$name}{$epoch} ) {
             my $m_file = $files{txt}{$name}{$epoch}{file};