|
Lines 34-40
sub wanted {
Link Here
|
| 34 |
return if -d $name; # Skip dir |
34 |
return if -d $name; # Skip dir |
| 35 |
|
35 |
|
| 36 |
# Search for missing x in svc, xt and t |
36 |
# Search for missing x in svc, xt and t |
| 37 |
if ( $name =~ m[^\./(svc|xt)] && $name ne './xt/perltidyrc' |
37 |
if ( $name =~ m[^\./(svc|xt)] && $name !~ m[\./xt/(perltidyrc|fix-old-fsf-address\.exclude)] |
| 38 |
|| $name =~ m[^\./t/.*\.t$] ) |
38 |
|| $name =~ m[^\./t/.*\.t$] ) |
| 39 |
{ |
39 |
{ |
| 40 |
push @files, $name unless -x $name; |
40 |
push @files, $name unless -x $name; |
| 41 |
- |
|
|