set the package version regex correctly for debian and test it

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index 70bb2d474cb2eac3b759b49b26004953d09f2bc0..60b1072c6db97e391b13fedc9dcfee892edfcf5b 100644 (file)
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -44,6 +44,7 @@ BEGIN {
                                 qw($gSubmitList $gMaintList $gQuietList $gForwardList),
                                 qw($gDoneList $gRequestList $gSubmitterList $gControlList),
                                 qw($gStrongList),
+                                qw($gPackageVersionRe),
                                 qw($gSummaryList $gMirrorList $gMailer $gBug),
                                 qw($gBugs $gRemoveAge $gSaveOldBugs $gDefaultSeverity),
                                 qw($gShowSeverities $gBounceFroms $gConfigDir $gSpoolDir),
@@ -384,7 +385,7 @@ Default: '[A-Za-z0-9:+\.-]+'
 =cut
 
 set_default(\%config,'package_version_re',
-           '[A-Za-z0-9:+\.-]+');
+           '[A-Za-z0-9:+\.~-]+');
 
 
 

diff --git a/t/06_mail_handling.t b/t/06_mail_handling.t
index 01d4bc0d34ad65f1ed258d3897c023148f9220ea..48f6cb8f2908506d99d8d10d9ea72af1595a9e79 100644 (file)
--- a/t/06_mail_handling.t
+++ b/t/06_mail_handling.t
@@ -1,7 +1,7 @@
 # -*- mode: cperl;-*-
 # $Id: 05_mail.t,v 1.1 2005/08/17 21:46:17 don Exp $
 
-use Test::More tests => 37;
+use Test::More tests => 43;
 
 use warnings;
 use strict;
@@ -135,6 +135,16 @@ my @control_commands =
                             status_key => 'found_versions',
                             status_value => [],
                            },
+      'found_1.0~5+1b2'  => {command => 'found',
+                            value   => '1.0~5+1b2',
+                            status_key => 'found_versions',
+                            status_value => ['1.0~5+1b2'],
+                           },
+      'notfound_1.0~5+1b2' => {command => 'notfound',
+                              value   => '1.0~5+1b2',
+                              status_key => 'found_versions',
+                              status_value => [],
+                             },
       'fixed_1.1'        => {command => 'fixed',
                             value   => '1.1',
                             status_key => 'fixed_versions',