&lt;code&gt;<br><br>--- computers4sure.t&nbsp;&nbsp;&nbsp; 2008-09-30 15:15:09.000000000 -0300<br>+++ teste.pl&nbsp;&nbsp;&nbsp; 2009-01-12 14:10:48.000000000 -0200<br>@@ -20,8 +20,8 @@<br>&nbsp;is( $mech-&gt;response-&gt;code, 200, &quot;Fetched $first_page&quot; );<br>
&nbsp;ok( $mech-&gt;content =~ /Support/, &#39;Found a likely word in the first page&#39; );<br>&nbsp;<br>-my @links = $mech-&gt;find_all_links( url_regex =&gt; qr{product\.asp\?productid=} );<br>-cmp_ok( scalar @links, &#39;&gt;&#39;, 10, &#39;Should have lots of product links&#39; );<br>
+my @links = $mech-&gt;find_all_links( url_regex =&gt; qr{category\.asp\?catId=} );<br>+cmp_ok( scalar @links, &#39;&gt;&#39;, 30, &#39;Should have lots of product links&#39; );<br>&nbsp;<br>&nbsp;my $link = $links[@links/2]; # Pick one in the middle<br>
&nbsp;isa_ok( $link, &#39;WWW::Mechanize::Link&#39; );<br>@@ -31,7 +31,7 @@<br>&nbsp;# comes back gzipped.<br>&nbsp;$mech-&gt;get( $link_str );<br>&nbsp;is( $mech-&gt;response-&gt;code, 200, &quot;Fetched $link_str&quot; );<br>-ok( $mech-&gt;content =~ /Your price/i, &#39;Found a likely phrase in the second page&#39; );<br>
+ok( $mech-&gt;content =~ /For a listing of more/i, &#39;Found a likely phrase in the second page&#39; );<br>&nbsp;<br>&nbsp;SKIP: {<br>&nbsp;&nbsp;&nbsp;&nbsp; eval &#39;use Test::Memory::Cycle&#39;;<br><br>&lt;/code&gt;<br><br><div class="gmail_quote">
2009/1/12 Otávio Fernandes <span dir="ltr">&lt;<a href="mailto:otaviof@gmail.com">otaviof@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Não Daniel, acho que eu não fui claro. Quando eu disse &quot;diff&quot;<br>
significa: &quot;$ diff -u file.pl.orig file.pl&quot;. O retorno disso você cola<br>
aqui na lista, assim nós podemos ver o que você mudou.<br>
<div><div></div><div class="Wj3C7c"><br>
um abraço,<br>
<br>
--<br>
Otávio Fernandes &lt;otaviof at <a href="http://gmail.com" target="_blank">gmail.com</a>&gt;<br>
<a href="http://otaviof.blogspot.com/" target="_blank">http://otaviof.blogspot.com/</a><br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br><br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>
------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>----------\)&#39; -8--8- &#39;(/--------------<br>-----------/------------\---------------<br>
----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>