===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/MakeTorrents.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- openbsd/OpenBSDTorrents/MakeTorrents.pl	2005/05/05 22:45:03	1.14
+++ openbsd/OpenBSDTorrents/MakeTorrents.pl	2005/05/06 21:03:55	1.15
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: MakeTorrents.pl,v 1.14 2005/05/05 21:45:03 andrew Exp $
+#$Id: MakeTorrents.pl,v 1.15 2005/05/06 20:03:55 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -110,7 +110,14 @@
 
     my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent";
 
-    my $t = BT::MetaInfo::Cached->new();
+    $t = BT::MetaInfo::Cached->new(
+        $torrent,
+        {
+            cache_root =>
+            $OBT->{DIR_HOME} . '/FileCache'
+        }
+    );
+
     $t->name($name);
     $t->announce($announce);
     unless ($announce =~ m!^http://[^/]+/!i) {