App-SeismicUnixGui
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
sub MY::libscan {
my ($self, $file) = @_;
# Exclude any file or directory that starts with a dot
# when it's part of a path component.
# This regex checks for a path component starting with a dot.
if ( $file =~ m{^/.[^/]+} ) {
return 0;
} else {
return $self->SUPER::libscan($file);
#return 1;
}
}
# post-installation required scripts
#
sub MY::postamble {
return <<'END';
( run in 1.192 second using v1.01-cache-2.11-cpan-feb199c6f72 )