diff options
Diffstat (limited to 'lib/Net/Plesk/Response.pm')
| -rw-r--r-- | lib/Net/Plesk/Response.pm | 6 |
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"?>' . |