diff options
author | Modestas Vainius <modestas@vainius.eu> | 2009-06-30 00:06:29 +0300 |
---|---|---|
committer | Modestas Vainius <modestas@vainius.eu> | 2009-06-30 00:53:07 +0300 |
commit | b90485a4fdfa023848e83c34a6db2fa12905201e (patch) | |
tree | 0bd85c33caf41b2de3e4a7242e87f113a3e394b1 /Debian/Debhelper | |
parent | a6ed7fc6ac9d45733c03e935d1a6e5ec08871944 (diff) |
More verbose rmdir_builddir() and more its tests
Signed-off-by: Modestas Vainius <modestas@vainius.eu>
Diffstat (limited to 'Debian/Debhelper')
-rw-r--r-- | Debian/Debhelper/Buildsystem.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Debian/Debhelper/Buildsystem.pm b/Debian/Debhelper/Buildsystem.pm index 494d2298..6eca336f 100644 --- a/Debian/Debhelper/Buildsystem.pm +++ b/Debian/Debhelper/Buildsystem.pm @@ -338,7 +338,9 @@ sub rmdir_builddir { # empty parent directories until the source directory level. if (not File::Spec->file_name_is_absolute($buildpath)) { while (($peek=pop(@spdir)) && $peek ne '.' && $peek ne '..') { - last if ! rmdir($this->get_sourcepath(File::Spec->catdir(@spdir, $peek))); + my $dir = $this->get_sourcepath(File::Spec->catdir(@spdir, $peek)); + verbose_print("rmdir $dir"); + last if ! rmdir($dir); } } } |