===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2005/05/02 22:43:53	1.13
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2005/05/04 01:11:59	1.14
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: CurrentTorrents.pl,v 1.13 2005/05/02 21:43:53 andrew Exp $
+#$Id: CurrentTorrents.pl,v 1.14 2005/05/04 00:11:59 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -71,6 +71,16 @@
 		#print "\t$epoch\n";
 		my $torrent = $files{torrent}{$name}{$epoch}{path};
 
+		if (
+			keys %{ $files{torrent}{$name} } == 1 &&
+			$files{torrent}{$name}{$epoch}{dir} 
+				eq $OBT->{DIR_TORRENT}
+		) {
+			#print "Skipping torrent for $name there is only one.\n";
+			next;
+		}
+
+
 		my $t;
 		eval { $t = BT::OBTMetaInfo->new( $torrent ); };
 
@@ -86,15 +96,6 @@
 			#print "Deleting $files{torrent}{$name}{$epoch}{file} the path doesn't exist.\n"; 
 			push @delete, $files{torrent}{$name}{$epoch};
 			delete $files{torrent}{$name}{$epoch};
-			next;
-		}
-
-		if (
-			keys %{ $files{torrent}{$name} } == 1 &&
-			$files{torrent}{$name}{$epoch}{dir} 
-				eq $OBT->{DIR_TORRENT}
-		) {
-			#print "Skipping torrent for $name there is only one.\n";
 			next;
 		}