view release on metacpan or  search on metacpan

t/980_versions.t  view on Meta::CPAN

    exit;
}

sub version;

#
# For a minute or two, I considered using File::Find. 
#
# Henry Spencer was right:
#
#   "Those who don't understand Unix are condemned to reinvent it, poorly."
#

undef $ENV {PATH};
my $FIND = "/usr/bin/find";

my $top   = -d "blib" ? "blib/lib" : "lib";
my @files = `$FIND $top -name [a-z_]*.pm`;
chomp @files;

my $main_version = version "$top/Acme/MetaSyntactic/Themes/Abigail.pm";