diff options
| author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-11 01:15:08 +0100 |
|---|---|---|
| committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-11 01:15:08 +0100 |
| commit | 96904140ef50c2d30973741486efcb3894fb1dd7 (patch) | |
| tree | 4a3a88e7afb78fe0e8f74c79c8bc2a3cf1fb3cad /Debian | |
| parent | d18e956260fd206e3b0c260adeea36e697350a57 (diff) | |
Dgit.pm: Move changedir_git_toplevel from git-debrebase
NFC other than hardcoded qw(git).
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'Debian')
| -rw-r--r-- | Debian/Dgit.pm | 7 |
1 files changed, 6 insertions, 1 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) |