===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.17
retrieving revision 1.21
diff -u -r1.17 -r1.21
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2005/05/05 22:52:45	1.17
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2006/05/15 19:47:04	1.21
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: CurrentTorrents.pl,v 1.17 2005/05/05 21:52:45 andrew Exp $
+#$RedRiver: CurrentTorrents.pl,v 1.20 2005/06/01 18:01:46 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -89,7 +89,15 @@
 		}
 
 		my $t;
-		eval { $t = BT::MetaInfo::Cached->new( $torrent ); };
+		eval { 
+			$t = BT::MetaInfo::Cached->new( 
+				$torrent, 
+				{ 
+					cache_root => 
+					$OBT->{DIR_HOME} . '/FileCache' 
+				}
+			); 
+		};
 
 		if ($@) {
 			warn "Error reading torrent $torrent\n";