The "proper" way is to use ExtUtils::MY

sub MY::libscan {
    my( $mm, $file ) = @_;
    return if $file =~  /\.swp$/; # SKIP
    return $file;
}
WriteMakefile(
...
[download]