===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/ServerTorrents.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- openbsd/OpenBSDTorrents/ServerTorrents.pl	2005/04/07 00:05:28	1.10
+++ openbsd/OpenBSDTorrents/ServerTorrents.pl	2005/05/02 21:26:04	1.11
@@ -1,10 +1,10 @@
 #!/usr/bin/perl -T
-#$Id: ServerTorrents.pl,v 1.10 2005/04/06 23:05:28 andrew Exp $
+#$Id: ServerTorrents.pl,v 1.11 2005/05/02 20:26:04 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
 
-use BT::MetaInfo;
+use BT::OBTMetaInfo;
 use LWP::UserAgent;
 use Time::Local;
 
@@ -117,7 +117,7 @@
 	print "Uploading $file\n";
 
 	my $t;
-	eval { $t = BT::MetaInfo->new("$OBT->{DIR_TORRENT}/$file"); };
+	eval { $t = BT::OBTMetaInfo->new("$OBT->{DIR_TORRENT}/$file"); };
 	if ($@) {
 		warn "Error reading torrent $file\n";
 		return undef;