summaryrefslogtreecommitdiff
path: root/Debian/Debhelper/Buildsystem.pm
diff options
context:
space:
mode:
authorModestas Vainius <modestas@vainius.eu>2009-06-30 00:06:29 +0300
committerModestas Vainius <modestas@vainius.eu>2009-06-30 00:53:07 +0300
commitb90485a4fdfa023848e83c34a6db2fa12905201e (patch)
tree0bd85c33caf41b2de3e4a7242e87f113a3e394b1 /Debian/Debhelper/Buildsystem.pm
parenta6ed7fc6ac9d45733c03e935d1a6e5ec08871944 (diff)
More verbose rmdir_builddir() and more its tests
Signed-off-by: Modestas Vainius <modestas@vainius.eu>
Diffstat (limited to 'Debian/Debhelper/Buildsystem.pm')
-rw-r--r--Debian/Debhelper/Buildsystem.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/Debian/Debhelper/Buildsystem.pm b/Debian/Debhelper/Buildsystem.pm
index 494d229..6eca336 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);
}
}
}