abolish run_git_1line ExitStatus

diff --git a/Topbloke.pm b/Topbloke.pm
index 6e9d7272b0d8259014511771bed50889576831e6..b8f21a026d776e574c2bec2fb899c7b4524d6f48 100644 (file)
--- a/Topbloke.pm
+++ b/Topbloke.pm
@@ -18,19 +18,9 @@ BEGIN {
 
 
 sub run_git_1line {
 
 
 sub run_git_1line {

-    my $xopts;
-    $xopts = ref $_[0] ? shift @_ : { };

     open GIT, "-|", 'git', @_ or die $!;
     my $l = <GIT>;
     $?=0;
     open GIT, "-|", 'git', @_ or die $!;
     my $l = <GIT>;
     $?=0;

-    if ($xopts->{ExitStatus}) {
-       if (!close GIT) { 
-           return ($?, undef);
-       } else {
-           chomp $l or die "@_ ?";
-           return (0, $l);
-       }
-    }

     close GIT or die "git @_ failed ($?)\n";
     chomp $l or die "@_ ?";
     return $l;
     close GIT or die "git @_ failed ($?)\n";
     chomp $l or die "@_ ?";
     return $l;