===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/ServerTorrents.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- openbsd/OpenBSDTorrents/ServerTorrents.pl	2005/05/05 21:33:42	1.14
+++ openbsd/OpenBSDTorrents/ServerTorrents.pl	2005/05/06 21:05:00	1.15
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: ServerTorrents.pl,v 1.14 2005/05/05 20:33:42 andrew Exp $
+#$Id: ServerTorrents.pl,v 1.15 2005/05/06 20:05:00 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -117,7 +117,16 @@
 	print "Uploading $file\n";
 
 	my $t;
-	eval { $t = BT::MetaInfo::Cached->new("$OBT->{DIR_TORRENT}/$file"); };
+        eval {
+		$t = BT::MetaInfo::Cached->new(
+			$torrent,
+			{
+				cache_root =>
+				$OBT->{DIR_HOME} . '/FileCache'
+			}
+		);
+	};
+
 	if ($@) {
 		warn "Error reading torrent $file\n";
 		return undef;