deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

list-dangling-repos: are we there yet?

Browse source 
<sigh>First I forgot @groups that may contain repos and patterns, then I
forgot patterns where the CREATOR token is used (this is the fix here).
This commit is contained in:
Sitaram Chamarty 2012-12-31 05:48:18 +05:30
parent 1fefb1c0d9
commit 5aef1adc7b
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/commands/list-dangling-repos
View file

@ -4,6 +4,7 @@ use warnings;
use lib $ENV{GL_LIBDIR}; use lib $ENV{GL_LIBDIR};
use Gitolite::Common; use Gitolite::Common;
use Gitolite::Conf::Load;
=for usage =for usage
Usage: gitolite list-dangling-repos Usage: gitolite list-dangling-repos
@ -40,8 +41,9 @@ for my $pr (keys %phy_repos) {
# Remove regex matches. # Remove regex matches.
for my $pr (keys %phy_repos) { for my $pr (keys %phy_repos) {
my $matched = 0; my $matched = 0;
my $pr2 = Gitolite::Conf::Load::generic_name($pr);
for my $r (keys %repos) { for my $r (keys %repos) {
if ($pr =~ /^$r$/) { if ($pr =~ /^$r$/ or $pr2 =~ /^$r$/) {
$matched = 1; $matched = 1;
next; next;
} }