[libconfig-model-dpkg-perl] 04/07: use default value to test for std-version warning

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit e00808e73546e1d76862ee87df4f1ea1f5890293
Author: Dominique Dumont <dod at debian.org>
Date:   Mon Sep 12 18:55:38 2016 +0200

    use default value to test for std-version warning
    
    Now that the test uses the actual default value from the model, only
    this one needs to be updated when a new Std-version is published by
    Debian.
---
 lib/Config/Model/models/Dpkg/Control/Source.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/Config/Model/models/Dpkg/Control/Source.pl b/lib/Config/Model/models/Dpkg/Control/Source.pl
index 3c7f6d7..872577e 100644
--- a/lib/Config/Model/models/Dpkg/Control/Source.pl
+++ b/lib/Config/Model/models/Dpkg/Control/Source.pl
@@ -296,8 +296,9 @@ Before updating this field, please read L<upgrading-checklist|https://www.debian
         'summary' => 'Debian policy version number this package complies to',
         'type' => 'leaf',
         'value_type' => 'uniline',
-        'warn_unless_match' => {
-          '3\\.9\\.8' => {
+        'warn_unless' => {
+          'current' => {
+            'code' => '$_ eq $self->_fetch_std;',
             'fix' => '$_ = undef; # restore default value',
             'msg' => 'Current standards version is 3.9.8'
           }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git