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).
This commit is contained in:
Sitaram Chamarty 2012-12-31 05:48:18 +05:30
parent 1fefb1c0d9
commit 5aef1adc7b

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;
}