From b5e0da582040e3737d72b388059874b4cbf2e78e Mon Sep 17 00:00:00 2001
From: levinse <levinse>
Date: Mon, 29 Nov 2010 19:26:11 +0000
Subject: [PATCH] fix password change response

---
 lib/Net/Ikano.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/Net/Ikano.pm b/lib/Net/Ikano.pm
index ab62bf4..43b5b06 100644
--- a/lib/Net/Ikano.pm
+++ b/lib/Net/Ikano.pm
@@ -254,9 +254,10 @@ sub req_PASSWORDCHANGE {
 
 sub resp_PASSWORDCHANGE {
    my ($self, $resphash, $reqhash) = (shift, shift);
-   return "invalid change password response" 
-	unless defined $resphash->{ChangePasswordResponse};
-   return $resphash->{ChangePasswordResponse};
+   return "invalid change password response"
+      unless defined $resphash->{ChangePasswordResponse}
+	  && defined $resphash->{ChangePasswordResponse}->{Customer};
+   $resphash->{ChangePasswordResponse}->{Customer};
 }
 
 sub req_PREQUAL {
-- 
2.11.0