diff options
author | Frank Lichtenheld <djpig> | 2004-03-25 15:43:52 +0000 |
---|---|---|
committer | Frank Lichtenheld <djpig> | 2004-03-25 15:43:52 +0000 |
commit | afad3cc5ca8efa128b0482739d491a8599244c79 (patch) | |
tree | cda239991b299cc69b3ec73cccb15b1112a506bf /english/template/debian/security.wml | |
parent | 3dc850d491d97c3fa16f0f835be878eaab91e46b (diff) |
Avoid some broken links
CVS version numbers
english/template/debian/security.wml: 1.115 -> 1.116
Diffstat (limited to 'english/template/debian/security.wml')
-rw-r--r-- | english/template/debian/security.wml | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/english/template/debian/security.wml b/english/template/debian/security.wml index 8c227c29397..c666d704659 100644 --- a/english/template/debian/security.wml +++ b/english/template/debian/security.wml @@ -42,10 +42,15 @@ <dd> <perl> my @pkg_links; -foreach my $pkg (split /\s*,\s*/, "<packages/>") { - my $pkg_name = $pkg; - $pkg_name =~ s/\s*\(.*//; - push @pkg_links, "<a href=\"http://packages.debian.org/src:$pkg_name\">$pkg</a>"; +my $pkgs = "<packages/>"; +if ($pkgs =~ /\w \w/ && $pkgs !~ /,/) { # some old packages tags + push @pkg_links, $pkgs; +} else { + foreach my $pkg (split /\s*,\s*/, "<packages/>") { + my $pkg_name = $pkg; + $pkg_name =~ s/\s*\(.*//; + push @pkg_links, "<a href=\"http://packages.debian.org/src:$pkg_name\">$pkg</a>"; + } } if ($#pkg_links > 1) { print join "<br />", @pkg_links; |