1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
package inc::Clean;
use Moose;
with 'Dist::Zilla::Role::BeforeBuild',
'Dist::Zilla::Role::AfterBuild';
use Path::Tiny;
use File::pushd 'pushd';
use File::Spec;
use Config;
sub before_build { shift->_clean('.') }
sub after_build {
my ($self, $opts) = @_;
$self->_clean($opts->{build_root});
my $iter = path($opts->{build_root})->iterator({ recurse => 1 });
my %found_files;
while (my $found_file = $iter->()) {
next if -d $found_file;
++$found_files{ $found_file->relative($opts->{build_root}) };
}
delete $found_files{$_->name} foreach @{ $self->zilla->files };
$self->log(join("\n",
"WARNING: Files were left behind in $opts->{build_root} that were not explicitly added:",
sort keys %found_files,
)) if keys %found_files;
}
sub _clean {
my ($self, $build_dir) = @_;
my $cwd = pushd $build_dir;
if (-e 'Makefile') {
my $make = $Config{make} || 'make';
my $devnull = File::Spec->devnull;
$self->log("Running $make distclean in $build_dir to clear out build cruft");
my $pid = fork;
unless ($pid) {
open STDIN, '<', $devnull;
open STDOUT, '>', $devnull;
open STDERR, '>', $devnull;
{ exec("$^X Makefile.PL && $make distclean") }
die "couldn't exec: $!";
}
waitpid($pid, 0) if $pid;
}
}
|
