[pkg-perl-tools] 02/03: dpt-salsa: no need to quote some hashkeys when others are unquoted
gregor herrmann
gregoa at debian.org
Sun Jan 28 03:39:54 UTC 2018
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
More information about the Pkg-perl-cvs-commits
mailing list