sub maybelink {
my ($links,$regex,$join) = @_;
+ if (not defined $regex and not defined $join) {
+ $links =~ s{((?:ftp|http|https)://[\S~-]+?/?)([\)\'\:\.\,]?(?:\s|\.<|$))}
+ {q(<a href=\").html_escape($1).q(\">).html_escape($1).q(</a>).$2}geimo;
+ return $links;
+ }
$join = ' ' if not defined $join;
my @return;
my @segments;
(closes: #499997)
* Comment out CGI::Alert use for the time being (closes: #499681)
* No longer hard-code paths in age-1 (closes: #499682)
+ * Change how maybelink links links (closes: #501757)
-- Colin Watson <cjwatson@debian.org> Fri, 20 Jun 2003 18:57:25 +0100