diff options
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) |