[Bast-commits] r8420 - ironman

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-01-22 22:43:25 +0000 (Fri, 22 Jan 2010)
New Revision: 8420

Modified:
   ironman/notes.pod
Log:
Adding notes on module patches to get things to a) build and b) pass tests to install correctly.

Modified: ironman/notes.pod
===================================================================
--- ironman/notes.pod	2010-01-22 22:19:09 UTC (rev 8419)
+++ ironman/notes.pod	2010-01-22 22:43:25 UTC (rev 8420)
@@ -130,6 +130,50 @@
          rc = ( tidyOptSetInt( tdoc, TidyWrapLen, 0 ) ? rc : -1 );
 </snip>
 
+=head2 Feed::Find
+
+Needs a patch to pass tests behind a proxy:
+
+<snip>
+--- lib/Feed/Find.pm.orig       2010-01-22 22:33:47.528422485 +0000
++++ lib/Feed/Find.pm    2010-01-22 22:34:01.815401942 +0000
+@@ -27,6 +27,7 @@
+     my $class = shift;
+     my($uri) = @_;
+     my $ua = LWP::UserAgent->new;
++    $ua->env_proxy;
+     $ua->agent(join '/', $class, $class->VERSION);
+     $ua->parse_head(0);   ## We're already basically doing this ourselves.
+     my $req = HTTP::Request->new(GET => $uri);
+--- t/01-find.t 2010-01-19 13:20:18.000000000 +0000
++++ t/01-find.t 2010-01-19 13:20:13.000000000 +0000
+@@ -14,6 +14,7 @@
+ is($feeds[0], BASE . 'ok.xml');
+
+ my $ua = LWP::UserAgent->new;
++$ua->env_proxy;
+ my $req = HTTP::Request->new(GET => BASE . 'anchors-only.html');
+ my $res = $ua->request($req);
+ @feeds = Feed::Find->find_in_html(\$res->content, BASE .  'anchors-only.html');
+</snip>
+
+=head2 URI::Fetch
+
+ URI::Fetch needs a patch to pass tests behind a proxy:
+
+<snip>
+--- lib/URI/Fetch.pm.orig       2010-01-22 22:37:04.883422183 +0000
++++ lib/URI/Fetch.pm    2010-01-22 22:37:19.961400889 +0000
+@@ -68,6 +68,7 @@
+     }
+ 
+     $ua ||= LWP::UserAgent->new;
++    $ua->env_proxy;
+     $ua->agent(join '/', $class, $class->VERSION)
+         if $ua->agent =~ /^libwww-perl/;
+ 
+</snip>
+
 =head2 Additional deps
 
 You'll need the following additional deps for testing: