===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm	2005/05/05 21:10:50	1.6
+++ openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm	2005/05/05 21:29:13	1.7
@@ -1,4 +1,4 @@
-# $Id: Cached.pm,v 1.6 2005/05/05 20:10:50 andrew Exp $
+# $Id: Cached.pm,v 1.7 2005/05/05 20:29:13 andrew Exp $
 use strict;
 
 package BT::MetaInfo::Cached;
@@ -12,7 +12,7 @@
 use BT::MetaInfo;
 use base 'BT::MetaInfo';
 
-$VERSION = do { my @r = (q$Id: Cached.pm,v 1.6 2005/05/05 20:10:50 andrew Exp $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Id: Cached.pm,v 1.7 2005/05/05 20:29:13 andrew Exp $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 sub new
 {
@@ -30,21 +30,6 @@
 
         return(bless($obj, $class));
 }	
-
-sub _load {
-	my $file = shift;
-	my $cache = shift;
-
-	my $basename = basename($file);
-	
-	my $info = $cache->get( $basename );
-
-	unless (defined $info) {
-		$info = BT::MetaInfo::_load($file);
-		$cache->set( $basename, $info );
-	}
-	return $info;
-}
 
 sub _load {
 	my $file = shift;