handle responses with an encoding= (though not actually the encoding)HEADmaster

1 files changed, 4 insertions, 2 deletions

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 = '<?xml version="1.0"?>' .