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

list-dangling-repos: are we there yet? 

<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).
master
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 Gitolite::Common;
use Gitolite::Conf::Load;
=for usage
Usage: gitolite list-dangling-repos
@ -40,8 +41,9 @@ for my $pr (keys %phy_repos) {
# Remove regex matches.
for my $pr (keys %phy_repos) {
my $matched = 0;
my $pr2 = Gitolite::Conf::Load::generic_name($pr);
for my $r (keys %repos) {
if ($pr =~ /^$r$/) {
if ($pr =~ /^$r$/ or $pr2 =~ /^$r$/) {
$matched = 1;
next;
}