use ExtUtils::MakeMaker;
WriteMakefile(
NAME => "Devel::TraceCalls",
VERSION_FROM => "lib/Devel/TraceCalls.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;
}