The following commit has been merged in the master branch:
commit 9c27064d66821a90f36737ba71e5b6508f5a4d60
Author: Frank Lichtenheld <[EMAIL PROTECTED]>
Date:   Tue Aug 5 22:39:14 2008 -0300

    lib/Read_taginfo.pm: Handle URLs in the Ref: field

diff --git a/debian/changelog b/debian/changelog
index d8bb6fa..7346e3b 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -124,6 +124,8 @@ lintian (1.24.3) unstable; urgency=low
       an Ocaml executable.  Also add information on segments which various
       checks scripts use which hadn't made it here yet.
     + [ADB] Make index() return a hash rather than an array
+  * lib/Read_taginfo.pm:
+    + [FL] Handle URLs in the Ref: field.
 
   * man/lintian.1
     + [ADB] Update the list of check scripts, removing the no longer present
diff --git a/lib/Read_taginfo.pm b/lib/Read_taginfo.pm
index cd00db9..70fff22 100644
--- a/lib/Read_taginfo.pm
+++ b/lib/Read_taginfo.pm
@@ -105,6 +105,8 @@ sub format_ref {
            } elsif (exists $url{$man}) {
                $foo[$u] = "<a href=\"$url{$man}\">$foo[$u]</a>";
            }
+       } elsif ($foo[$u] =~ m,^\s*((?:ftp|https?)://[\S~-]+?/?)\s*$,i) {
+           $foo[$u] = "<a href=\"$1\">$1</a>";
        } elsif ($foo[$u] =~ m,\s*([\w_-]+\(\d+\w*\))\s*$,i) {
            $foo[$u] = "the $foo[$u] manual page";
        }

-- 
Debian package checker


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to