From a58b356bd36167baa576ac7a762abe8f9f4a86f9 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 25 Jun 2007 15:17:19 +0100
Subject: [PATCH] really REALLY fix period C records

---
 perl/DXProt.pm  | 2 +-
 perl/Version.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ab1ebd1f..18d7bdb5 100644
--- 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 69d95f5a..af7281e0 100644
--- 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;
-- 
2.34.1