From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 21 May 2007 19:36:25 +0000 (-0700)
Subject: set the package version regex correctly for debian and test it
X-Git-Tag: release/2.6.0~565^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1cd4c8d0673fe056a4da7954a7b16b0b457ab44e;p=debbugs.git

set the package version regex correctly for debian and test it
---

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index 70bb2d4..60b1072 100644
--- 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 01d4bc0..48f6cb8 100644
--- 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',