X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=perl%2FGit.pm;h=8fd36117539b528173e84f1df3acfc754ccc868f;hb=8299886619b8dab99773b5810f50c63a50b2d611;hp=b5b1cf5edcd860e88c461c600d3fa841654fef76;hpb=7b9a13ece8a1e7c0fd2a82d4bd4fcf0a9ce0e8c4;p=git.git

diff --git a/perl/Git.pm b/perl/Git.pm
index b5b1cf5ed..8fd361175 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -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) {