undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Git.pm: config_boolean() -> config_bool()

Browse Source 
This patch renames config_boolean() to config_bool() for consistency with
the commandline interface and because it is shorter but still obvious. ;-)
It also changes the return value from some obscure string to real Perl
boolean, allowing for clean user code.

Signed-off-by: Petr Baudis <pasky@suse.cz>
This commit is contained in:
Petr Baudis 2007-05-09 12:49:41 +02:00 committed by Junio C Hamano
parent efa615ba08
commit 35c49eeae7
3 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
git-remote.perl
View File

@ -297,9 +297,9 @@ sub update_remote {
} elsif ($name eq 'default') {
undef @remotes;
for (sort keys %$remote) {
my $do_fetch = $git->config_boolean("remote." . $_ .
my $do_fetch = $git->config_bool("remote." . $_ .
".skipDefaultUpdate");
if (!defined($do_fetch) || $do_fetch ne "true") {
unless ($do_fetch) {
push @remotes, $_;
}
}

4
git-send-email.perl
View File

@ -154,8 +154,8 @@ if ($@) {
$term = new FakeTerm "$@: going non-interactive";
}
my $def_chain = $repo->config_boolean('sendemail.chainreplyto');
if ($def_chain and $def_chain eq 'false') {
my $def_chain = $repo->config_bool('sendemail.chainreplyto');
if (defined $def_chain and not $def_chain) {
$chain_reply_to = 0;
}

12
perl/Git.pm
View File

@ -516,9 +516,11 @@ sub config {
}
=item config_boolean ( VARIABLE )
=item config_bool ( VARIABLE )
Retrieve the boolean configuration C<VARIABLE>.
Retrieve the bool configuration C<VARIABLE>. The return value
is usable as a boolean in perl (and C<undef> if it's not defined,
of course).
Must be called on a repository instance.
@ -526,14 +528,16 @@ This currently wraps command('config') so it is not so fast.
=cut
sub config_boolean {
sub config_bool {
my ($self, $var) = @_;
$self->repo_path()
or throw Error::Simple("not a repository");
try {
return $self->command_oneline('config', '--bool', '--get',
my $val = $self->command_oneline('config', '--bool', '--get',
$var);
return undef unless defined $val;
return $val eq 'true';
} catch Git::Error::Command with {
my $E = shift;
if ($E->value() == 1) {