![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Cached.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents / lib / BT / MetaInfo|
Return to Cached.pm CVS log | Up to [local] / openbsd / OpenBSDTorrents / lib / BT / MetaInfo |
| version 1.6, 2005/05/05 21:10:50 | version 1.7, 2005/05/05 21:29:13 | ||
|---|---|---|---|
|
|
||
| return $info; | return $info; | ||
| } | } | ||
| 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 save | sub save | ||
| { | { |