From 917b310cdb9123819b9fac00aaf0a46ae1002dd3 Mon Sep 17 00:00:00 2001 From: Russ Rowan Date: Wed, 23 Nov 2005 15:42:23 -0500 Subject: [PATCH] Fixed the IP address detection in goto search. --- contrib/perl/hooks.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/perl/hooks.pl b/contrib/perl/hooks.pl index 69d946fe..b614ffcd 100644 --- a/contrib/perl/hooks.pl +++ b/contrib/perl/hooks.pl @@ -1064,7 +1064,7 @@ using the search engine defined by the 'search' configuration option if return $url if $url eq $file; } return $url if $url =~ /^(\/|~)/; - return $url if $url =~ /^([0-9]{1,3}\.){3}[0-9]{1,3}($|\/|\?|:[0-9]{1,5})/; + return $url if $url =~ /([0-9]{1,3}\.){3}[0-9]{1,3}($|\/|\?|:[0-9]{1,5})/; return $url if $url =~ /^((::|)[[:xdigit:]]{1,4}(:|::|)){1,8}($|\/|\?|:[0-9]{1,5})/ and $url =~ /:/; if ( $url =~ /^(([a-zA-Z]{3,}(|4|6):\/\/|(www|ftp)\.)|)[a-zA-Z0-9]+/ and ($url =~ /[a-zA-Z0-9-]+\.(com|org|net|edu|gov|int|mil)($|\/|\?|:[0-9]{1,5})/