Author: joeyh
Date: 2005-10-01 18:20:13 +0000 (Sat, 01 Oct 2005)
New Revision: 2264
Modified:
bin/updatelist
Log:
support whitespace after { in cross-references to be robust
Modified: bin/updatelist
==================================================================---
bin/updatelist 2005-10-01 18:18:00 UTC (rev 2263)
+++ bin/updatelist 2005-10-01 18:20:13 UTC (rev 2264)
@@ -15,7 +15,7 @@
if (/^\[/) {
($dsa)=m/(DT?SA-.*?) /;
}
- if (/\{(CAN|CVE)/) {
+ if (/\{\s*(CAN|CVE)/) {
my ($canlist)=m/\{(.*)\}/;
foreach my $can (split '' '', $canlist) {
$can=~s/CVE-/CAN-/g;