WebService::Livedoor::Auth
使ってみたんだけど。以下のエラーメッセージが出てました。
[Sun May 20 02:22:23 2007] [error] [client 192.168.0.3] [Sun May 20 02:22:23 2007] livedoor.cgi: Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.8/WebService/Livedoor/Auth.pm line 68.
68行目はここです。
65 sub validate_response {
66 my($self, $q) = @_;
67 $q = _normalize_query($q);
68 if ($q->{sig} eq $self->calc_sig($q)) {
69 if (abs(time - $q->{t}) > $self->timeout) {
70 return $self->error('LOCAL TIMEOUT');
71 }
72 my $user = WebService::Livedoor::Auth::User->new;
73 $user->userdata($q->{userdata});
74 $user->userhash($q->{userhash});
75 $user->token($q->{token});
76 return $user;
77 }
78 else {
79 return $self->error('INVALID SIG');
80 }
81 }動作的には問題ないんで別にいいんだけど、気になるといえば気になる。ような気もする。
-
- -
WebService-Livedoor-Auth-0.01 - [One line description of module's purpose here] - metacpan.org
livedoor Auth
