projects
/
Net-Ikano.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6997df0
)
fix password change response
author
levinse
<levinse>
Mon, 29 Nov 2010 19:26:11 +0000
(19:26 +0000)
committer
levinse
<levinse>
Mon, 29 Nov 2010 19:26:11 +0000
(19:26 +0000)
lib/Net/Ikano.pm
patch
|
blob
|
history
diff --git
a/lib/Net/Ikano.pm
b/lib/Net/Ikano.pm
index
ab62bf4
..
43b5b06
100644
(file)
--- 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);
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 {
}
sub req_PREQUAL {