[pkg-perl-tools] 02/03: dpt-salsa: no need to quote some hashkeys when others are unquoted

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository pkg-perl-tools.

commit ba49df5b33597cc90ade9ec516671be8f93bb1bb
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Jan 28 04:28:07 2018 +0100

    dpt-salsa: no need to quote some hashkeys when others are unquoted
    
    Gbp-Dch: ignore
---
 scripts/salsa | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/scripts/salsa b/scripts/salsa
index cedf7aa..ed27122 100755
--- a/scripts/salsa
+++ b/scripts/salsa
@@ -148,7 +148,7 @@ sub adduser {
     my $access_level = $levels_name{ lc($level) };
     die "Unknown access level '$level'." unless $access_level;
 
-    $api->add_group_member( $config{'perl_team_modules_id'},
+    $api->add_group_member( $config{perl_team_modules_id},
         { user_id => $user_id, access_level => $access_level } );
 }
 
@@ -157,13 +157,13 @@ sub removeuser {
     my ($user) = @args;
     die 'Required parameter username|userid missing.' unless $user;
     my $user_id = user2userid($user);
-    $api->remove_group_member( $config{'perl_team_modules_id'}, $user_id );
+    $api->remove_group_member( $config{perl_team_modules_id}, $user_id );
 }
 
 ## listmembers()
 sub listmembers {
     my $members
-        = $api->paginator( 'group_members', $config{'perl_team_modules_id'} )
+        = $api->paginator( 'group_members', $config{perl_team_modules_id} )
         ->all();
     foreach ( @{$members} ) {
         if ( $opts{json} ) {
@@ -182,7 +182,7 @@ sub listmembers {
 sub listrepos {
     my $repos = $api->paginator(
         'group_projects',
-        $config{'perl_team_modules_packages_id'},
+        $config{perl_team_modules_packages_id},
         { order_by => 'name', sort => 'asc' }
     )->all();
     foreach ( @{$repos} ) {
@@ -203,7 +203,7 @@ sub createrepo {
 
     my $repo = $api->create_project(
         {   name         => $reponame,
-            namespace_id => $config{'perl_team_modules_packages_id'},
+            namespace_id => $config{perl_team_modules_packages_id},
             description  => "Debian package $reponame",
             visibility   => 'public',
         }
@@ -237,8 +237,8 @@ sub createrepo {
     # allow access to debian group
     $api->share_project_with_group(
         $repoid,
-        {   group_id     => $config{'debian_id'},
-            group_access => $levels_name{'developer'},
+        {   group_id     => $config{debian_id},
+            group_access => $levels_name{developer},
         }
     );
 }

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