6 use File::Basename qw( basename );
8 for my $subdir ( glob 't/*' ) {
11 for my $file ( map { basename($_) } glob "$subdir/*.t" ) {
12 my ($number) = $file =~ /^(\d+)/;
13 next unless defined $number;
15 push @{ $files{$number} }, $file;
18 for my $number ( grep { @{ $files{$_} } > 1 } keys %files ) {
20 print ' - ', $_, "\n" for @{ $files{$number} };