Eliminate Scalar::Util usage from private-Error.pm

diff --git a/git-send-email.perl b/git-send-email.perl
index e794e4492551fe5eaad60950ee74fa94ef01eca6..79e82f5a8069362ccf41723df7db017228cd97bf 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -84,15 +84,8 @@
 
 # Now, let's fill any that aren't set in with defaults:
 
-sub gitvar_ident {
-    my ($name) = @_;
-    my $val = $repo->command('var', $name);
-    my @field = split(/\s+/, $val);
-    return join(' ', @field[0...(@field-3)]);
-}
-
-my ($author) = gitvar_ident('GIT_AUTHOR_IDENT');
-my ($committer) = gitvar_ident('GIT_COMMITTER_IDENT');
+my ($author) = $repo->ident_person('author');
+my ($committer) = $repo->ident_person('committer');
 
 my %aliases;
 my @alias_files = $repo->config('sendemail.aliasesfile');