=================================================================== RCS file: /cvs/openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -u -r1.13 -r1.14 --- openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm 2009/12/16 20:11:13 1.13 +++ openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm 2010/03/10 21:00:36 1.14 @@ -1,4 +1,4 @@ -# $RedRiver: Cached.pm,v 1.12 2006/05/15 18:47:04 andrew Exp $ +# $RedRiver: Cached.pm,v 1.13 2009/12/16 20:11:13 andrew Exp $ use strict; package BT::MetaInfo::Cached; @@ -13,7 +13,11 @@ use BT::MetaInfo; use base 'BT::MetaInfo'; -$VERSION = do { my @r = (q$Id: Cached.pm,v 1.13 2009/12/16 20:11: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 {