(minor)
trace rationalisation plus perltidy again
This commit is contained in:
parent
89a1857d56
commit
9650d2fb3f
|
@ -126,6 +126,7 @@ sub git_config {
|
||||||
# and the final map does this:
|
# and the final map does this:
|
||||||
# 'foo.bar'=>'repo' , 'foodbar'=>'repoD'
|
# 'foo.bar'=>'repo' , 'foodbar'=>'repoD'
|
||||||
|
|
||||||
|
trace( 3, map { ( "$_" => "-> $ret{$_}" ) } ( sort keys %ret ) );
|
||||||
return \%ret;
|
return \%ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -165,7 +166,7 @@ sub load_1 {
|
||||||
trace( 3, $repo );
|
trace( 3, $repo );
|
||||||
|
|
||||||
if ( repo_missing($repo) ) {
|
if ( repo_missing($repo) ) {
|
||||||
trace( 3, "repo '$repo' missing" );
|
trace( 2, "repo '$repo' missing" );
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
_chdir("$rc{GL_REPO_BASE}/$repo.git");
|
_chdir("$rc{GL_REPO_BASE}/$repo.git");
|
||||||
|
@ -237,6 +238,7 @@ sub memberships {
|
||||||
my $type = shift;
|
my $type = shift;
|
||||||
my $item = shift;
|
my $item = shift;
|
||||||
my $item2 = '';
|
my $item2 = '';
|
||||||
|
trace( 3, $type, $item );
|
||||||
|
|
||||||
my @ret = ( $item, '@all' );
|
my @ret = ( $item, '@all' );
|
||||||
|
|
||||||
|
@ -263,6 +265,7 @@ sub memberships {
|
||||||
}
|
}
|
||||||
|
|
||||||
@ret = @{ sort_u( \@ret ) };
|
@ret = @{ sort_u( \@ret ) };
|
||||||
|
trace( 3, sort @ret );
|
||||||
return @ret;
|
return @ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -123,5 +123,7 @@ sub run_all {
|
||||||
_system( $sfp, @ARGV ); # they better all return with 0 exit codes!
|
_system( $sfp, @ARGV ); # they better all return with 0 exit codes!
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
return;
|
||||||
}
|
}
|
||||||
|
trace( 2, "'$rc_section' not found in rc" );
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue