/usr/local/CPAN/BFD/Makefile.PL

• package main
  • MY::libscan
• package MY
• package main
• EOF

use ExtUtils::MakeMaker;

WriteMakefile(
    NAME          => 'BFD',
    VERSION_FROM  => 'lib/BFD.pm',
    PREREQ_PM => {
    },
);

sub MY::libscan {
    package MY;
    my $self = shift;
    my ( $path ) = @_;
    return '' if /\.sw[a-z]$/;
    return '' unless length $self->SUPER::libscan( $path );
    return $path;
}