Select Code to Download

sub _check_and_extract_name {
...
    return undef unless contains_pod($file,$verbose);

    # ... proceed with adding the accepted file to the lost of pods ..
+.

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

#!perl -w
...
printf "5 $bat ok for pod: %d\n", (-f $bat && -T $bat && -x $bat);
printf "NOTE 3: above shows that -x _ does not work as advertized in c
+ase 1\n\n";