| Subject: | Method getPageList broken |
My script using Mechanize::TWiki:
1 use WWW::Mechanize::TWiki;
2
3 my $mech = WWW::Mechanize::TWiki->new(agent=>'robot', autocheck=>1);
4
5 $mech->cgibin('http://twiki.ufba.br/twiki/bin', {scriptSuffix=>''});
6
7 my @topics = $mech->getPageList('_default');
Error message:
no cgibin at /../WWW/Mechanize/TWiki.pm line 157.
Follow attached patch...
My environment:
perl -v: This is perl, v5.10.0 built for i486-linux-gnu-thread-multi
uname -a: Linux case.neuromancer 2.6.29-1-686 #1 SMP Fri Apr 17 14:35:16
UTC 2009 i686 GNU/Linux
| Subject: | 0001-Removed-unused-debug-code.patch |
From 161e35a0fff39ab04d19fb427a5ff78095a86256 Mon Sep 17 00:00:00 2001
From: Joenio Costa <joenio@perl.org.br>
Date: Fri, 29 Jan 2010 10:56:46 -0300
Subject: [PATCH] Removed unused debug code
---
.../lib/WWW/Mechanize/TWiki.pm | 1 -
1 files changed, 0 insertions(+), 1 deletions(-)
diff --git a/WWW-Mechanize-TWiki-0.12/lib/WWW/Mechanize/TWiki.pm b/WWW-Mechanize-TWiki-0.12/lib/WWW/Mechanize/TWiki.pm
index 095de43..5b424af 100644
--- a/WWW-Mechanize-TWiki-0.12/lib/WWW/Mechanize/TWiki.pm
+++ b/WWW-Mechanize-TWiki-0.12/lib/WWW/Mechanize/TWiki.pm
@@ -88,7 +88,6 @@ sub getPageList
%{$overrides}, # overrides these defaults
} );
- warn "search: [", Dumper($xxx), "]\n";
my $topic = $xxx->content();
$topic =~ s|^.+?$tagStartTopics||s; # strip up to start tag
$topic =~ s|<p />.+?$||s; # strip after formatted output
--
1.6.6.1