From 314150b68fad1ddff185850c9c97beb9d756dff0 Mon Sep 17 00:00:00 2001
From: ivan <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 = '<?xml version="1.0"?>' .
-- 
cgit v1.2.1