diff options
-rw-r--r-- | Debian/Dgit.pm | 8 | ||||
-rwxr-xr-x | dgit | 6 |
2 files changed, 7 insertions, 7 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 @@ -249,12 +249,6 @@ sub no_such_package () { exit 4; } -sub changedir ($) { - my ($newdir) = @_; - printdebug "CD $newdir\n"; - chdir $newdir or confess "chdir: $newdir: $!"; -} - sub deliberately ($) { my ($enquiry) = @_; return !!grep { $_ eq "--deliberately-$enquiry" } @deliberatelies; |