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