X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;fp=perl%2FDXUser.pm;h=116b69e62eebec01552ec5bb2a9c47066d9d4f61;hb=49d7cd28623df3c4accf72d48f74b4b00238a81a;hp=7481ed8456c423a84ada12dba8ad585315ae3f83;hpb=5094a0b55d903d344277adf9d26b5af8e37247d8;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 7481ed84..116b69e6 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -354,7 +354,7 @@ sub close
 	my $ip = shift;
 	# add a record to the connect list
 	$self->{lastin} = $main::systime;
-	my $ref = [$startt || $self->{startt}, $main::systime];
+	my $ref = [$self->{startt} || $startt, $main::systime];
 	push @$ref, $ip if $ip;
 	push @{$self->{connlist}}, $ref;
 	shift @{$self->{connlist}} if @{$self->{connlist}} > $maxconnlist;