=================================================================== RCS file: /cvs/openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm,v retrieving revision 1.11 retrieving revision 1.14 diff -u -r1.11 -r1.14 --- openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm 2005/05/21 01:05:13 1.11 +++ openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm 2010/03/10 21:00:36 1.14 @@ -1,9 +1,9 @@ -# $Id: Cached.pm,v 1.11 2005/05/21 00:05:13 andrew Exp $ +# $RedRiver: Cached.pm,v 1.13 2009/12/16 20:11:13 andrew Exp $ use strict; package BT::MetaInfo::Cached; -require 5.6.0; +require 5.0060; use vars qw( $VERSION @ISA ); use Cache::FileCache; @@ -13,7 +13,11 @@ use BT::MetaInfo; use base 'BT::MetaInfo'; -$VERSION = do { my @r = (q$Id: Cached.pm,v 1.11 2005/05/21 00:05:13 andrew Exp $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +use Convert::Bencode_XS; +*{bencode} = \&Convert::Bencode_XS::bencode; +*{bdecode} = \&Convert::Bencode_XS::bdecode; + +$VERSION = do { my @r = (q$Id: Cached.pm,v 1.14 2010/03/10 21:00:36 andrew Exp $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; sub new {