1*0Sstevel@tonic-gate#!/usr/bin/perl -w 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gate# This is a test for all the odd little backwards compatible things 4*0Sstevel@tonic-gate# MakeMaker has to support. And we do mean backwards. 5*0Sstevel@tonic-gate 6*0Sstevel@tonic-gateBEGIN { 7*0Sstevel@tonic-gate if( $ENV{PERL_CORE} ) { 8*0Sstevel@tonic-gate chdir 't' if -d 't'; 9*0Sstevel@tonic-gate @INC = ('../lib', 'lib'); 10*0Sstevel@tonic-gate } 11*0Sstevel@tonic-gate else { 12*0Sstevel@tonic-gate unshift @INC, 't/lib'; 13*0Sstevel@tonic-gate } 14*0Sstevel@tonic-gate} 15*0Sstevel@tonic-gate 16*0Sstevel@tonic-gateuse strict; 17*0Sstevel@tonic-gateuse Test::More tests => 2; 18*0Sstevel@tonic-gate 19*0Sstevel@tonic-gaterequire ExtUtils::MakeMaker; 20*0Sstevel@tonic-gate 21*0Sstevel@tonic-gate# CPAN.pm wants MM. 22*0Sstevel@tonic-gatecan_ok('MM', 'new'); 23*0Sstevel@tonic-gate 24*0Sstevel@tonic-gate# Pre 5.8 ExtUtils::Embed wants MY. 25*0Sstevel@tonic-gatecan_ok('MY', 'catdir'); 26