From 314150b68fad1ddff185850c9c97beb9d756dff0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 8 Nov 2011 22:34:10 +0000
Subject: [PATCH] handle responses with an encoding= (though not actually the
 encoding)

---
 Changes                   | 3 +++
 lib/Net/Plesk.pm          | 2 +-
 lib/Net/Plesk/Response.pm | 6 ++++--
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index 86973c4..831f828 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Net::Plesk
 
+0.04  unreleased
+        - handle responses with an encoding= (though not actually the encoding)
+
 0.03  Fri Mar 14 14:16:04 2008 EDT
         - cite dependancies and other meta work
 	- not really an Exporter and no need for Data::Dumper
diff --git a/lib/Net/Plesk.pm b/lib/Net/Plesk.pm
index 92d42e7..23697ed 100644
--- a/lib/Net/Plesk.pm
+++ b/lib/Net/Plesk.pm
@@ -21,7 +21,7 @@ use Net::Plesk::Method::client_ippool_add_ip;
 
 @ISA = ();
 
-$VERSION = '0.03';
+$VERSION = '0.04_01';
 
 $PROTO_VERSION = '1.4.1.0';
 
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"?>' .
-- 
2.11.0