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

(minor) usage() sub can handle multiple usage sections in the same script

Browse source
This commit is contained in:
Sitaram Chamarty 2012-03-12 10:43:33 +05:30
parent 84422ccf30
commit cbd4d43687
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Gitolite/Common.pm
View file

@ -75,10 +75,12 @@ sub _die {
}
sub usage {
_warn(shift) if @_;
my ($warn, $section) = @_;
_warn($warn) if $warn;
$section ||= 'usage';
my $scriptname = ( caller() )[1];
my $script = slurp($scriptname);
$script =~ /^=for usage(.*?)^=cut/sm;
$script =~ /^=for $section(.*?)^=cut/sm;
say2( $1 ? $1 : "...no usage message in $scriptname" );
exit 1;
}