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 |
- |
|
|