bigger random element in PC92 ext. node holdoff calcs

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index e9fa42b6d4384418b84da43f319aa738638cf1bf..eec6b67b2d731730b7df2d52f42c5ee530208d23 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -493,7 +493,7 @@ sub process
                                        if ($dxchan == $main::me || ($ref && ($ref->measure_pc9x_t($main::systime-$main::systime_daystart)) >= $pc92_update_period/2)) {
                                                $dxchan->broadcast_pc92_update($dxchan->{call});
                                        } else {
-                                               $dxchan->update_pc92_next($pc92_update_period - rand(60));
+                                               $dxchan->update_pc92_next($pc92_update_period - rand($pc92_update_period/4));
                                        }
                                }
                        }

diff --git a/perl/Version.pm b/perl/Version.pm
index fce61901b2f5ca740a91f09adf0cde69f4213734..c7ce548972e7382d80fe03e7d342c2237a00f42d 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 = '142';
+$build = '143';
 
 1;