From 314150b68fad1ddff185850c9c97beb9d756dff0 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 8 Nov 2011 22:34:10 +0000 Subject: handle responses with an encoding= (though not actually the encoding) --- lib/Net/Plesk/Response.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib/Net/Plesk') diff --git a/lib/Net/Plesk/Response.pm b/lib/Net/Plesk/Response.pm index 53342d5..6b9a46e 100644 --- a/lib/Net/Plesk/Response.pm +++ b/lib/Net/Plesk/Response.pm @@ -37,9 +37,11 @@ sub new { my $self = {}; bless($self, $class); + my $encoding = ''; #default my $data = shift; - if ($data =~ /^\<\?xml version=\"1.0\"\?\>(.*)$/s){ - $data=$1; + if ($data =~ /^\<\?xml version=\"1.0\"(\s+encoding="([\w\-]*)")?\?\>(.*)$/s){ + $encoding = $2; #don't actually do anything with this yet + $data = $3; }else{ $data =~ s/[^\w\s]/ /g; # yes, we lose stuff $data = '' . -- cgit v1.2.1