backwards.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!/usr/bin/perl -w
# This is a test for all the odd little backwards compatible things
# MakeMaker has to support. And we do mean backwards.
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't' if -d 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
use strict;
use Test::More tests => 2;
require ExtUtils::MakeMaker;
# CPAN.pm wants MM.
can_ok('MM', 'new');
# Pre 5.8 ExtUtils::Embed wants MY.
can_ok('MY', 'catdir');