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

(-)a/xt/find-misplaced-executables (-2 / +1 lines)
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
- 

Return to bug 26384