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