- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Fri, 05 May 2006 19:39:22 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv30552
Modified Files:
checklink
Log Message:
Suppress RobotRules warnings, rt.cpan.org #18902.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.25
retrieving revision 4.26
diff -u -d -r4.25 -r4.26
--- checklink 5 May 2006 19:31:57 -0000 4.25
+++ checklink 5 May 2006 19:39:20 -0000 4.26
@@ -61,7 +61,12 @@
sub simple_request
{
my $self = shift;
- my $response = $self->W3C::UserAgent::SUPER::simple_request(@_);
+ my $response = do {
+ local $SIG{__WARN__} = sub { # Suppress some warnings, rt.cpan.org #18902
+ warn($_[0]) if ($_[0] && $_[0] !~ /^RobotRules/);
+ };
+ $self->W3C::UserAgent::SUPER::simple_request(@_);
+ };
if (! defined($self->{FirstResponse})) {
$self->{FirstResponse} = $response->code();
$self->{FirstMessage} = $response->message() || '(no message)';
Received on Friday, 5 May 2006 19:39:29 UTC