perl_build: Avoid failing if forced to be used in dh_auto_clean when Build does not...

diff --git a/Debian/Debhelper/Buildsystem/perl_build.pm b/Debian/Debhelper/Buildsystem/perl_build.pm
index caba9b75f8cdab2bd0848aaa6fbdb6b669707b88..88bcff5859ebd296831b8a8b81be0d5021ae956e 100644 (file)
--- a/Debian/Debhelper/Buildsystem/perl_build.pm
+++ b/Debian/Debhelper/Buildsystem/perl_build.pm
@@ -61,7 +61,9 @@ sub install {
 
 sub clean {
        my $this=shift;
-       $this->do_perl("Build", "--allow_mb_mismatch", 1, "distclean", @_);
+       if (-f "Build") {
+               $this->do_perl("Build", "--allow_mb_mismatch", 1, "distclean", @_);
+       }
 }
 
 1

diff --git a/debian/changelog b/debian/changelog
index 20667098b730ca7615eea14e4c4a873b080c9139..9fa71cf29af7400e7f3f46f8001cd4c9b19022d5 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,11 @@
+debhelper (7.3.10) UNRELEASED; urgency=low
+
+  * perl_build: Avoid failing if forced to be used in dh_auto_clean
+    when Build does not exist (ie due to being run twice in a row).
+    Closes: #539848
+
+ -- Joey Hess <joeyh@debian.org>  Tue, 04 Aug 2009 13:19:31 -0400
+
 debhelper (7.3.9) unstable; urgency=low
 
   * cmake: Avoid forcing rpath off as this can break some test suites.