===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm,v
retrieving revision 1.8
retrieving revision 1.10
diff -u -r1.8 -r1.10
--- openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm	2005/05/05 22:44:03	1.8
+++ openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm	2005/05/20 19:37:28	1.10
@@ -1,4 +1,4 @@
-# $Id: Cached.pm,v 1.8 2005/05/05 21:44:03 andrew Exp $
+# $Id: Cached.pm,v 1.10 2005/05/20 18:37:28 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.8 2005/05/05 21:44:03 andrew Exp $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Id: Cached.pm,v 1.10 2005/05/20 18:37:28 andrew Exp $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 sub new
 {
@@ -20,7 +20,14 @@
         my $file  = shift;
 	my $cache_settings = shift;
 
-	$cache_settings->{namespace} ||= 'BT::MetaInfo::Cached';
+	if (ref $file eq 'HASH') {
+		$cache_settings = $file;
+		$file = undef;
+	}
+
+	$cache_settings->{namespace}           ||= 'BT::MetaInfo::Cached';
+	$cache_settings->{default_expires_in}  ||=  7 * 24 * 60 * 60;
+	$cache_settings->{auto_purge_interval} ||=  1 *  1 * 10 * 60;
 
 	my $cache = new Cache::FileCache( $cache_settings );