| Subject: | Reset strict() |
The find() method sets URI::URL::strict(1), but doesn't set it back. Callers that depend on a different value for strict are foiled. As strict() returns old value, the fix is a simple save-and-restore. Patch enclosed.
--- Find.pm.orig Mon Oct 11 07:23:26 2004
+++ Find.pm Wed Mar 16 09:02:28 2005
@@ -101,7 +101,7 @@
my $urlsfound = 0;
# Don't assume http.
- URI::URL::strict(1);
+ my $strict = URI::URL::strict(1);
# Yes, evil. Basically, look for something vaguely resembling a URL,
# then hand it off to URI::URL for examination. If it passes, throw
@@ -134,6 +134,8 @@
$self->recruft($orig_match);
}
}eg;
+
+ URI::URL::strict($strict);
return $urlsfound;
}