From da2c51a552ec4aba7af7696fa631324337286949 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 12 Sep 2007 22:05:45 +0100
Subject: [PATCH] reduce the (default) length of announces to dupe

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

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index 84f9c481..c075765f 100644
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -17,8 +17,8 @@ use DXVars;
 
 use vars qw(%dup $duplth $dupage $filterdef);
 
-$duplth = 60;					# the length of text to use in the deduping
-$dupage = 5*3600;			# the length of time to hold ann dups
+$duplth = 30;					# the length of text to use in the deduping
+$dupage = 5*3600;				# the length of time to hold ann dups
 $filterdef = bless ([
 			  # tag, sort, field, priv, special parser 
 			  ['by', 'c', 0],
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index e6f04a7f..a863b08a 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -480,7 +480,6 @@ sub process
 				dbg("ROUTE: pc92 broadcast candidate: $dxchan->{call}") if isdbg('obscount');
 				if ($dxchan == $main::me || !$dxchan->{do_pc9x}) {
 					$dxchan->broadcast_pc92_update($dxchan->{call});
-					$last_pc92_slug = 0 if $dxchan == $main::me;
 				}
 			}
 		}
diff --git a/perl/Version.pm b/perl/Version.pm
index d72986dc..bf174eef 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 = '138';
+$build = '139';
 
 1;
-- 
2.43.0