diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-07-14 16:36:22 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-07-19 01:12:03 +0100 |
commit | 743c8017cb0444a55731b923699f3bea85e0d08e (patch) | |
tree | e928c4470e586189838afe46050441da0a9e116c /Debian | |
parent | aa073c5bdde68a1ab5026ba4daaf29c8bf361532 (diff) |
Dgit.pm: changedir: Break out from dgit
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'Debian')
-rw-r--r-- | Debian/Dgit.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 1f9c827..e25a3af 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -59,7 +59,7 @@ BEGIN { $debugprefix *debuglevel *DEBUG shellquote printcmd messagequote $negate_harmful_gitattrs - git_slurp_config_src + changedir git_slurp_config_src workarea_setup fresh_workarea in_workarea); # implicitly uses $main::us @@ -420,6 +420,12 @@ sub is_fast_fwd ($$) { } } +sub changedir ($) { + my ($newdir) = @_; + printdebug "CD $newdir\n"; + chdir $newdir or confess "chdir: $newdir: $!"; +} + sub git_slurp_config_src ($) { my ($src) = @_; # returns $r such that $r->{KEY}[] = VALUE |