===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/ServerTorrents.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- openbsd/OpenBSDTorrents/ServerTorrents.pl	2008/12/29 22:02:14	1.26
+++ openbsd/OpenBSDTorrents/ServerTorrents.pl	2008/12/29 22:04:00	1.27
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$RedRiver: ServerTorrents.pl,v 1.25 2008/09/23 16:35:45 andrew Exp $
+#$RedRiver: ServerTorrents.pl,v 1.26 2008/12/29 22:02:14 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -114,8 +114,10 @@
 	foreach my $hash (keys %{ $server_torrents{$torrent} }) {
 		#printf "SERVER: [%s] [%s]\n", $hash, $torrent;
 		if ((! exists $torrents{$torrent}{$hash}) &&
-		     defined $server_torrents{$torrent}{$hash} &&
+		    (
+		     (! defined $server_torrents{$torrent}{$hash}) ||
 		     $server_torrents{$torrent}{$hash} != 1
+		    )
 		) {
 			Delete_Torrent($torrent, $hash);
 		}