# change the order of terms in && expression 
    unless(-f $file _ && ($file =~ /\.(pod|pm|plx?)\z/i || -x _ ) && -T) {
      return undef;

    # replace the _ variable by $file
    unless(-f $file && -T _ && ($file =~ /\.(pod|pm|plx?)\z/i || -x $file )) {
      return undef;