Timeout PC92 nodes at the correct rate

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index af7d73083a9e9f68d6947ea16450c7ed2d3fa1b5..1288165e33e51187c8c83cc740bf77cd645c48fa 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -457,7 +457,6 @@ sub process
                        $pc50s = pc50($main::me, scalar DXChannel::get_all_users);
                        eph_dup($pc50s);
                        $last_pc50 = $t;
-                       time_out_pc92_routes();
                }
 
                foreach $dxchan (@dxchan) {
@@ -512,6 +511,7 @@ sub process
                # do the keepalive for me, if required
                if ($main::systime >= $main::me->{next_pc92_keepalive}) {
                        $main::me->broadcast_pc92_keepalive($main::mycall);
+                       time_out_pc92_routes();
                }
 
                if ($pc92_slug_changes && $main::systime >= $last_pc92_slug + $pc92_slug_changes) {

diff --git a/perl/Version.pm b/perl/Version.pm
index f42c8acf49677149826501d296dff821a31023ff..6f0490e972bafc1b82f5dd5e62c33863d52bcb40 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '150';
+$build = '151';
 
 1;