Do not double decode UTF8 in DBI Notification module (#455)

This commit is contained in:
Clément Oudot 2012-03-27 20:16:31 +00:00
parent d6836adebb
commit 5e9f1e33f1

View File

@ -10,7 +10,7 @@ use Time::Local;
use DBI;
use utf8;
our $VERSION = '1.1.0';
our $VERSION = '1.2.0';
## @method boolean prereq()
# Check if DBI parameters are set.
@ -50,10 +50,13 @@ sub get {
# Get XML message
my $xml = $h->{xml};
# Decode it twice to get the correct uncoded string
utf8::decode($xml);
# Decode it to get the correct uncoded string
utf8::decode($xml);
# TODO on some systems, a second decoding is mandatory
# need to find out why
#utf8::decode($xml);
# Store message in result
$result->{"$h->{date}#$h->{uid}#$h->{ref}"} = $xml;
}