From 96904140ef50c2d30973741486efcb3894fb1dd7 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 11 Oct 2018 01:15:08 +0100 Subject: Dgit.pm: Move changedir_git_toplevel from git-debrebase NFC other than hardcoded qw(git). Signed-off-by: Ian Jackson --- Debian/Dgit.pm | 7 ++++++- git-debrebase | 3 +-- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 5b1feff..bfe2ab9 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -54,7 +54,7 @@ BEGIN { waitstatusmsg failedcmd_waitstatus failedcmd_report_cmd failedcmd runcmd shell_cmd cmdoutput cmdoutput_errok - git_rev_parse git_cat_file + git_rev_parse changedir_git_toplevel git_cat_file git_get_ref git_get_symref git_for_each_ref git_for_each_tag_referring is_fast_fwd git_check_unmodified @@ -500,6 +500,11 @@ sub git_rev_parse ($) { return cmdoutput qw(git rev-parse), "$_[0]~0"; } +sub changedir_git_toplevel () { + my $toplevel = cmdoutput qw(git rev-parse --show-toplevel); + chdir $toplevel or fail f_ "chdir toplevel %s: %s\n", $toplevel, $!; +} + sub git_cat_file ($;$) { my ($objname, $etype) = @_; # => ($type, $data) or ('missing', undef) diff --git a/git-debrebase b/git-debrebase index 79c8321..5e8a8bb 100755 --- a/git-debrebase +++ b/git-debrebase @@ -3031,8 +3031,7 @@ getoptions_main initdebug('git-debrebase '); enabledebug if $debuglevel; -my $toplevel = cmdoutput @git, qw(rev-parse --show-toplevel); -chdir $toplevel or fail f_ "chdir toplevel %s: %s\n", $toplevel, $!; +changedir_git_toplevel(); $rd = fresh_playground "$playprefix/misc"; -- cgit v1.2.3