File: Fix-CVE-parsing-for-new-format.patch

package info (click to toggle)
libparse-debianchangelog-perl 1.2.0-12
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 848 kB
  • ctags: 200
  • sloc: perl: 1,380; makefile: 24
file content (21 lines) | stat: -rw-r--r-- 824 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
From: Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>
Date: Sun, 24 May 2015 14:56:33 +0000
Subject: Fix CVE parsing for new format.
Bug-Debian: https://bugs.debian.org/731436
---
 lib/Parse/DebianChangelog/ChangesFilters.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Parse/DebianChangelog/ChangesFilters.pm b/lib/Parse/DebianChangelog/ChangesFilters.pm
index 46ad2aa..e84e4c5 100644
--- a/lib/Parse/DebianChangelog/ChangesFilters.pm
+++ b/lib/Parse/DebianChangelog/ChangesFilters.pm
@@ -105,7 +105,7 @@ sub bugs_to_bts {
 sub cve_to_mitre {
     my ($text, $cgi) = @_;
 
-    $text =~ s!\b((?:CVE|CAN)-\d{4}-\d{4})\b
+    $text =~ s!\b((?:CVE|CAN)-\d{4}-\d{4,})\b
         !$cgi->a({ -href=>"http://cve.mitre.org/cgi-bin/cvename.cgi?name=$1" }, $1)
 	!xego;
     return $text;