===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/MakeTorrents.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- openbsd/OpenBSDTorrents/MakeTorrents.pl	2005/05/03 05:33:15	1.13
+++ openbsd/OpenBSDTorrents/MakeTorrents.pl	2005/05/05 22:45:03	1.14
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -T
-#$Id: MakeTorrents.pl,v 1.13 2005/05/03 04:33:15 andrew Exp $
+#$Id: MakeTorrents.pl,v 1.14 2005/05/05 21:45:03 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
 
 use lib 'lib';
-use BT::OBTMetaInfo;
+use BT::MetaInfo::Cached;
 use OpenBSDTorrents;
 
 %ENV = ();
@@ -110,7 +110,7 @@
 
     my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent";
 
-    my $t = BT::OBTMetaInfo->new();
+    my $t = BT::MetaInfo::Cached->new();
     $t->name($name);
     $t->announce($announce);
     unless ($announce =~ m!^http://[^/]+/!i) {
@@ -132,7 +132,7 @@
         return 0;
     }
 
-    my $hash = $t->info_hash_cached($torrent_with_path);
+    my $hash = $t->info_hash;
     $hash = unpack("H*", $hash);
 
     $t->save($torrent_with_path);