really REALLY fix period C records

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ab1ebd1f6f239e640808aa53584fc3ab7bf08485..18d7bdb5ae4bea70c4adfcea392b8e58a6f9aae4 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -476,7 +476,7 @@ sub process
                        # all my non pc9x dependent nodes.
                        if ($main::systime >= $dxchan->{next_pc92_update}) {
                                if ($dxchan->{call} eq $main::mycall || !$dxchan->{do_pc9x}) {
-                                       $main::me->broadcast_pc92_update($dxchan->{call});
+                                       $dxchan->broadcast_pc92_update($dxchan->{call});
                                }
                        }
                }

diff --git a/perl/Version.pm b/perl/Version.pm
index 69d95f5a59acb5557a60ebbd0577151f1aca6e45..af7281e0e2b9a9cbb39e7fb3ea23c03ff152db25 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 = '88';
+$build = '89';
 
 1;