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),
=cut
set_default(\%config,'package_version_re',
- '[A-Za-z0-9:+\.-]+');
+ '[A-Za-z0-9:+\.~-]+');
# -*- 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;
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',