|
Lines 26-32
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 = `git ls-tree -d --name-only master`; |
29 |
my @dirs = `git ls-tree -d --name-only HEAD`; |
| 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 |
- |
|
|