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 {