===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm	2005/05/02 20:37:28	1.1
+++ openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm	2005/05/02 20:43:44	1.2
@@ -1,20 +1,27 @@
+# $Id: Cached.pm,v 1.2 2005/05/02 19:43:44 andrew Exp $
+use strict;
+
 package BT::OBTMetaInfo;
 
 require 5.6.0;
-use strict;
+use vars qw( $VERSION @ISA );
 
 use BT::MetaInfo;
 
-$VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+use Data::Dumper;
 
+$VERSION = do { my @r = (q$Id: Cached.pm,v 1.2 2005/05/02 19:43:44 andrew Exp $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+
 sub new
 {
 	my $classname	= shift;
-	my $pass = shift;
+	print Dumper $classname;
+	exit;
 
-	my $self	= $classname->SUPER::new(@_);
+#	my $self	= $classname->SUPER::new(@_);
 }	
 
 
 sub info_hash { return(sha1(bencode($_[0]->info))); }
 
+1