Dgit.pm: in_workarea: Use changedir

[dgit.git] / Debian / Dgit.pm

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index e25a3af8339b4a659eff47fa4de9e42f871cd26f..399aaad4d029e3a2d4ce28b04cefad02c335d5e5 100644 (file)
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -481,9 +481,9 @@ sub in_workarea ($;$) {
     # $twa should be relative paths of the form .git/FOO/BAR
     my ($twa) = @_;
     $twa //= $wa;
-    chdir $twa or die "$twa $!";
+    changedir $twa or die "$twa $!";
     my $r = eval { $sub->($twa); };
-    chdir '../../..' or die "$@; $!";
+    changedir '../../..' or die "$@; $!";
     die $@ if length $@;
     return $r;
 }