Support LWP::ConnCache->new(total_capacity => undef)

It means unlimited capacity; same behaviour as for the accessor.
dolmen · Mar 14, 2011 · 93c26dd · 93c26dd
1 parent 82548d7
commit 93c26dd
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/lib/LWP/ConnCache.pm b/lib/LWP/ConnCache.pm
@@ -8,8 +8,11 @@ $VERSION = "6.00";
 
 sub new {
     my($class, %cnf) = @_;
-    my $total_capacity = delete $cnf{total_capacity};
-    $total_capacity = 1 unless defined $total_capacity;
+
+    my $total_capacity = 1;
+    if (exists $cnf{total_capacity}) {
+        $total_capacity = delete $cnf{total_capacity};
+    }
     if (%cnf && $^W) {
 	require Carp;
 	Carp::carp("Unrecognised options: @{[sort keys %cnf]}")