diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Net/Plesk.pm | 2 | ||||
| -rw-r--r-- | lib/Net/Plesk/Response.pm | 6 |
2 files changed, 5 insertions, 3 deletions
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"?>' . |