Dgit.pm: Break out git_get_symref

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 9ce797200102205a4dc2f566cdd6faf281ab00ae..aaafefb736a05d88258e7c5d4f0023c174f37cf3 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -4511,13 +4511,8 @@ sub cmd_clone {
 }
 
 sub branchsuite () {
-    my @cmd = (@git, qw(symbolic-ref -q HEAD));
-    my $branch = cmdoutput_errok @cmd;
-    if (!defined $branch) {
-       $?==256 or failedcmd @cmd;
-       return undef;
-    }
-    if ($branch =~ m#$lbranch_re#o) {
+    my $branch = git_get_symref();
+    if (defined $branch && $branch =~ m#$lbranch_re#o) {
        return $1;
     } else {
        return undef;