View | Details | Raw Unified | Return to bug 32352
Collapse All | Expand All

(-)a/xt/check_makefile.t (-4 / +3 lines)
Lines 26-38 use File::Slurp qw( read_file ); Link Here
26
use Data::Dumper;
26
use Data::Dumper;
27
27
28
my $curdir = File::Spec->curdir();
28
my $curdir = File::Spec->curdir();
29
my @dirs = `find $curdir -maxdepth 1 -type d`;
29
my @dirs = `git ls-tree -d --name-only master`;
30
my $makefile = read_file("$curdir/Makefile.PL");
30
my $makefile = read_file("$curdir/Makefile.PL");
31
my @missing;
31
my @missing;
32
for my $d ( sort @dirs ) {
32
for my $d ( sort @dirs ) {
33
    chomp $d;
33
    chomp $d;
34
    next if $d =~ /\.\/(debian|\.git)$/;
34
    next if $d =~ /^debian$/;
35
    next if $makefile =~ m{'$d('|\/)}xms;
35
    next if $makefile =~ m{'\./$d('|\/)}xms;
36
    push @missing, $d;
36
    push @missing, $d;
37
}
37
}
38
38
39
- 

Return to bug 32352