2004年05月11日 (火)
Net::Trackbackでメッセージが出力されない
どうも、Net::Trackbackでメッセージが出力されないっぽい。別にいんだけど、気になったので調べてみました。
Net::Trackback::Message のバグっぽいですな。以下パッチ。
--- Message.pm.org 2004-05-11 18:06:54.928686000 +0900
+++ Message.pm 2004-05-11 18:06:08.818680000 +0900
@@ -31,7 +31,7 @@
sub to_xml {
my $self = shift;
my $code = $self->{__stash}->{code} || 0;
- my $msg = Net::Trackback->encode_xml($self->{__stash}->{msg}) || '';
+ my $msg = Net::Trackback->encode_xml($self->{__stash}->{message}) || '';
my $xml = <<MESSAGE;
<?xml version="1.0" encoding="iso-8859-1"?>
<response>
@@ -43,7 +43,7 @@
}
sub code { $_[0]->{__stash}->{code} = $_[1] if $_[1]; $_[0]->{__stash}->{code}; }
-sub message { $_[0]->{__stash}->{msg} = $_[1] if $_[1]; $_[0]->{__stash}->{msg}; }
+sub message { $_[0]->{__stash}->{message} = $_[1] if $_[1]; $_[0]->{__stash}->{message}; }
sub is_success { !$_[0]->{__stash}->{code} }
sub is_error { $_[0]->{__stash}->{code} }
一応、翻訳こんにゃく使って作者さんメールしておきました。
posted by takefumi
|
この日記へリンク
|
コメント(0)
|
トラックバック(0)