From: levinse <levinse>
Date: Mon, 29 Nov 2010 19:26:11 +0000 (+0000)
Subject: fix password change response
X-Git-Url: http://git.freeside.biz/gitweb/?p=Net-Ikano.git;a=commitdiff_plain;h=b5e0da582040e3737d72b388059874b4cbf2e78e

fix password change response
---

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 {