Skip Menu |

This queue is for tickets about the Net-TrackBack CPAN distribution.

Report information
The Basics
Id: 12494
Status: open
Priority: 0/
Queue: Net-TrackBack
People
Owner: tima [...] cpan.org
Requestors: halkeye [...] halkeye.net
Cc:
AdminCc:
Bug Information
Severity: Important
Broken in: 1.01
Fixed in: (no value)

History Show all quoted text
  Mon May 02 00:31:25 2005 Guest - Ticket created
Subject: Typo in Client.pm
Doubtful its important in this case: This is perl, v5.8.4 built for i386-linux-thread-multi Linux oinkpig.halkeye.net 2.6.10 #1 Sun Jan 2 20:19:50 PST 2005 i686 GNU/Linux sub new { my $class = shift; my $self = bless {}, $class; $self->{__timeout} = 15; $self->{__no_proxy} = [ qw(localhost, 127.0.0.1) ]; <<--- shouldn't have the comma there. $self->{__charset} = 'utf-8'; $self; }
  Thu May 19 14:38:37 2005 tima [...] cpan.org - Correspondence added
Thanks I'll note it for the next release.
  Thu May 19 14:38:38 2005 tima [...] cpan.org - Status changed from 'new' to 'open'
  Thu May 19 14:38:38 2005 tima [...] cpan.org - Given to TIMA
  Tue Sep 30 06:21:03 2014 yoshida [...] cpan.org - Correspondence added
ditto. --- Net/Trackback/Client.pm.origd 2014-09-30 19:18:06.318000751 +0900 +++ Net/Trackback/Client.pm 2014-09-30 19:12:29.628000576 +0900 @@ -36,7 +36,7 @@ my $agent = $self->init_agent; my $req = HTTP::Request->new( GET => $url ); my $res = $agent->request($req); - return self->error($url.' '.$res->status_line) + return $self->error($url.' '.$res->status_line) unless $res->is_success; my $c = $res->content; my @data;