From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 16 May 2011 20:13:46 +0000 (-0500)
Subject: be quieter when cleaning, to make listdeps work better
X-Git-Tag: 2.0100~93
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f0403d71159bb6d5ebeeb29c7f292ebbd534f69;p=gitmo%2FMoose.git

be quieter when cleaning, to make listdeps work better
---

diff --git a/inc/Clean.pm b/inc/Clean.pm
index ce528b5..cf8fee0 100644
--- a/inc/Clean.pm
+++ b/inc/Clean.pm
@@ -8,7 +8,13 @@ sub before_build {
 
     if (-e 'Makefile') {
         $self->log("Running make distclean to clear out build cruft");
-        system("$^X Makefile.PL && make distclean");
+        unless (fork) {
+            close(STDIN);
+            close(STDOUT);
+            close(STDERR);
+            { exec("$^X Makefile.PL && make distclean") }
+            die "couldn't exec: $!";
+        }
     }
 
     if (-e 'META.yml') {