From 29595789c0470bfbdcd0e34f9cc9391aa0a994de Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 23 Jul 2007 19:16:45 +0100 Subject: [PATCH] fix and simplify dup announces --- perl/AnnTalk.pm | 1 - perl/Version.pm | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm index 02bb0a9b..84f9c481 100644 --- a/perl/AnnTalk.pm +++ b/perl/AnnTalk.pm @@ -48,7 +48,6 @@ sub dup unpad($text); $text =~ s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg; $text = Encode::encode("iso-8859-1", $text) if $main::can_encode && Encode::is_utf8($text, 1); - $text = pack("C*", map {$_ & 127} unpack("C*", $text)); $text =~ s/[^\#a-zA-Z0-9]//g; $text = substr($text, 0, $duplth) if length $text > $duplth; my $dupkey = "A$call|$to|\L$text"; diff --git a/perl/Version.pm b/perl/Version.pm index ccc1a529..818d482b 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 = '124'; +$build = '125'; 1; -- 2.43.0