summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/LWP/ConnCache.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/LWP/ConnCache.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/LWP/ConnCache.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/LWP/ConnCache.pm b/Master/tlpkg/tlperl/lib/LWP/ConnCache.pm
index 6ac55cedd40..fcc0b2e027d 100644
--- a/Master/tlpkg/tlperl/lib/LWP/ConnCache.pm
+++ b/Master/tlpkg/tlperl/lib/LWP/ConnCache.pm
@@ -3,13 +3,16 @@ package LWP::ConnCache;
use strict;
use vars qw($VERSION $DEBUG);
-$VERSION = "5.810";
+$VERSION = "6.02";
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]}")