[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[SCM] Debian package checker branch, master, updated. 1.24.2-81-ge6e6c73



The following commit has been merged in the master branch:
commit 9c27064d66821a90f36737ba71e5b6508f5a4d60
Author: Frank Lichtenheld <djpig@debian.org>
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


Reply to: