diff options
| author |   Sitaram Chamarty <sitaram@atc.tcs.com> | 2012-03-15 20:04:30 +0530 |
|---|---|---|
| committer | Sitaram Chamarty <sitaram@atc.tcs.com> | 2012-03-24 10:30:43 +0530 |
| commit | 8714b77eae6b80287b36d532e1b16bb7045a80e6 (patch) | |
| tree | e506d3768686d156f5e49ddc24c82740d59c5f78 /src/syntactic-sugar | |
| parent | record and maintain a 'version' (for info and elsewhere) (diff) | |
| download | gitolite-gentoo-8714b77eae6b80287b36d532e1b16bb7045a80e6.tar.gz gitolite-gentoo-8714b77eae6b80287b36d532e1b16bb7045a80e6.tar.bz2 gitolite-gentoo-8714b77eae6b80287b36d532e1b16bb7045a80e6.zip | |
(perltidy)
Diffstat (limited to 'src/syntactic-sugar')
| -rwxr-xr-x | src/syntactic-sugar/keysubdirs-as-groups | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/syntactic-sugar/keysubdirs-as-groups b/src/syntactic-sugar/keysubdirs-as-groups index d16dc78..83a9b77 100755 --- a/src/syntactic-sugar/keysubdirs-as-groups +++ b/src/syntactic-sugar/keysubdirs-as-groups @@ -9,21 +9,21 @@ sub sugar_script { my $lines = shift; - my @out = @{ $lines }; + my @out = @{$lines}; unshift @out, groupnames(); return \@out; } sub groupnames { - my @out = (); + my @out = (); my %members = (); for my $pk (`find ../keydir/ -name "*.pub"`) { next unless $pk =~ m(.*/([^/]+)/([^/]+)\.pub$); next if $1 eq 'keydir'; $members{$1} .= " $2"; } - for my $m (sort keys %members) { + for my $m ( sort keys %members ) { push @out, "\@$m =" . $members{$m}; } |