summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorFrank Lichtenheld <frank@lichtenheld.de>2008-03-14 18:29:29 +0100
committerJunio C Hamano <gitster@pobox.com>2008-03-15 01:43:56 -0700
commit44617928ae4731b6139d87b978ddbc4860154222 (patch)
treed8a862a206a5de44fdc1c07d3855abf23fe69fba /perl
parentc2e357c2fe23ff900de158067ca11e5021e22741 (diff)
downloadgit-44617928ae4731b6139d87b978ddbc4860154222.tar.gz
Git.pm: Don't require repository instance for ident
git var doesn't require to be called in a repository anymore, so don't require it either. Signed-off-by: Frank Lichtenheld <frank@lichtenheld.de> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Diffstat (limited to 'perl')
-rw-r--r--perl/Git.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl/Git.pm b/perl/Git.pm
index 67b3749f0e..2e7f896bae 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -632,15 +632,15 @@ The synopsis is like:
"$name <$email>" eq ident_person($name);
$time_tz =~ /^\d+ [+-]\d{4}$/;
-Both methods must be called on a repository instance.
-
=cut
sub ident {
- my ($self, $type) = @_;
+ my ($self, $type) = _maybe_self(@_);
my $identstr;
if (lc $type eq lc 'committer' or lc $type eq lc 'author') {
- $identstr = $self->command_oneline('var', 'GIT_'.uc($type).'_IDENT');
+ my @cmd = ('var', 'GIT_'.uc($type).'_IDENT');
+ unshift @cmd, $self if $self;
+ $identstr = command_oneline(@cmd);
} else {
$identstr = $type;
}
@@ -652,8 +652,8 @@ sub ident {
}
sub ident_person {
- my ($self, @ident) = @_;
- $#ident == 0 and @ident = $self->ident($ident[0]);
+ my ($self, @ident) = _maybe_self(@_);
+ $#ident == 0 and @ident = $self ? $self->ident($ident[0]) : ident($ident[0]);
return "$ident[0] <$ident[1]>";
}