[libconfig-model-dpkg-perl] 03/23: use directory name as package source name default

[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 9de1bcd49b2db2954ee01ae0a07e5bc9035231fe
Author: Dominique Dumont <dod at debian.org>
Date:   Tue Jan 24 12:57:39 2017 +0100

    use directory name as package source name default
---
 lib/Config/Model/models/Dpkg/Control/Source.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/Config/Model/models/Dpkg/Control/Source.pl b/lib/Config/Model/models/Dpkg/Control/Source.pl
index cf91a45..2536564 100644
--- a/lib/Config/Model/models/Dpkg/Control/Source.pl
+++ b/lib/Config/Model/models/Dpkg/Control/Source.pl
@@ -22,6 +22,12 @@ For details, see L<section 5.7 of Debian policy|https://www.debian.org/doc/debia
     'element' => [
       'Source',
       {
+        'compute' => {
+          'allow_override' => '1',
+          'formula' => '$ENV{PWD} =~ m!/([^/]+)$!; $1;',
+          'use_eval' => '1'
+        },
+        'description' => 'Source package name. Defaults to the name of the current directory.',
         'mandatory' => '1',
         'match' => '\\w[\\w+\\-\\.]{1,}',
         'summary' => 'source package name',

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