require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
@ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-$VERSION = '1.04_01';
+$VERSION = '1.05';
$ENV{EMXSHELL} = 'sh'; # to run `commands`
0; # false and not empty
}
+
+# This code was taken out of MM_Unix to avoid loading File::Glob
+# unless necessary.
+sub find_tests {
+ return join(' ', <t\\*.t>);
+}
+
+
sub init_others
{
my ($self) = @_;
return "$self->{BASEEXT}.def";
}
+
=item perl_script
Takes one argument, a file name, and returns the file name, if the