diff options
| -rw-r--r-- | lib/Net/Ikano.pm | 7 |
1 files 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 { |