fix and moan if mycall and myalias are lowercase

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 7481ed8456c423a84ada12dba8ad585315ae3f83..116b69e62eebec01552ec5bb2a9c47066d9d4f61 100644 (file)
--- 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;