diff options
| -rw-r--r-- | lib/MGA/Advisories.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/MGA/Advisories.pm b/lib/MGA/Advisories.pm index f097236..bfc94ae 100644 --- a/lib/MGA/Advisories.pm +++ b/lib/MGA/Advisories.pm @@ -315,7 +315,7 @@ sub assign_id { } # Look for errors in the subject and description - if ( $adv->{subject} =~ /\b(\w+)\s+\1\s/ ) { + if ( $adv->{subject} =~ /\b([-_\d\w]+)\s+\1\s/ ) { print STDERR "Subject has a duplicated word\n"; return; } @@ -328,7 +328,7 @@ sub assign_id { # given that this check succeeds in eliminating these typos 95% of the # time, it's probably worth forcing the user to reword the description in # these rare cases. - if ( $adv->{description} =~ /\b(\w+)\s+\1\s/ ) { + if ( $adv->{description} =~ /\b([-_\d\w]+)\s+\1\s/ ) { print STDERR "Description has a duplicated word\n"; return; } |