From 282985951a4f703161efdb9e03d6674038b0f093 Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Fri, 24 Oct 2025 04:04:38 +0000 Subject: [PATCH 1/2] Initial plan From c0fc89b37c099f6393404635e561066fccad0c0b Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Fri, 24 Oct 2025 04:13:45 +0000 Subject: [PATCH 2/2] Fix autocheck usage in Examples.pod Co-authored-by: oalders <96205+oalders@users.noreply.github.com> --- lib/WWW/Mechanize/Examples.pod | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/WWW/Mechanize/Examples.pod b/lib/WWW/Mechanize/Examples.pod index 15e66d6e..c7ccda17 100644 --- a/lib/WWW/Mechanize/Examples.pod +++ b/lib/WWW/Mechanize/Examples.pod @@ -187,7 +187,7 @@ If I had more time, I'd implement WWW::Photobucket on top of WWW::Mechanize. my $url = "http://img78.photobucket.com/albums/v281/$login/$folder/"; # login to your photobucket.com account - my $mech = WWW::Mechanize->new(); + my $mech = WWW::Mechanize->new( autocheck => 0 ); $mech->get($url); $mech->submit_form( form_number => 1, @@ -343,7 +343,7 @@ Last I checked, it didn't work because their HTML didn't match, but it's still g sub get_quotes_page { my $movie = shift; - my $mech = WWW::Mechanize->new; + my $mech = WWW::Mechanize->new( autocheck => 0 ); $mech->get( "http://www.imdb.com/search" ); $mech->success or die "Can't get the search page";