| … | |
… | |
| 529 | my $size = length $src; |
529 | my $size = length $src; |
| 530 | |
530 | |
| 531 | unless ($pmbin{$pm}) { # only do this unless the file is binary |
531 | unless ($pmbin{$pm}) { # only do this unless the file is binary |
| 532 | if ($pm =~ /^auto\/POSIX\/[^\/]+\.al$/) { |
532 | if ($pm =~ /^auto\/POSIX\/[^\/]+\.al$/) { |
| 533 | if ($src =~ /^ unimpl \"/m) { |
533 | if ($src =~ /^ unimpl \"/m) { |
| 534 | print "$pm: skipping (only raises runtime error).\n" |
534 | print "$pm: skipping (raises runtime error only).\n" |
| 535 | if $VERBOSE >= 3; |
535 | if $VERBOSE >= 3; |
| 536 | next; |
536 | next; |
| 537 | } |
537 | } |
| 538 | } |
538 | } |
| 539 | |
539 | |
