unconditionally fix pc50 unitialised variable

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index a6587209179a8da21428e20a5176672265e8e61f..1ba185b183d4123f2489115c76088b71df6d3bb1 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1131,6 +1131,7 @@ sub process
                next if $dxchan == $me;
                
                # send a pc50 out on this channel
+               $dxchan->{pc50_t} = $main::systime unless exists $dxchan->{pc50_t};
                if ($t >= $dxchan->{pc50_t} + $DXProt::pc50_interval) {
                        $dxchan->send(pc50(scalar DXChannel::get_all_users));
                        $dxchan->{pc50_t} = $t;