1N/A # On older systems we might exceed the 8-level directory depth limit 1N/A # imposed by RMS. We get around this with a rooted logical, but we 1N/A # can't create logical names with attributes in Perl, so we do it 1N/A # in a DCL subprocess and put it in the job table so the parent sees it. 1N/Ause ExtUtils::MakeMaker; 1N/A# This will interfere with the PREREQ_PRINT tests. 1N/Aprintf "Current package is: %s\n", __PACKAGE__ unless "@ARGV" =~ /PREREQ/; 1N/A PREREQ_PM => { strict => 0 }, 1N/Aprint eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n"; 1N/Aprint "ok 2 - TEST_VERBOSE\n"; 1N/Aprint eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n"; 1N/Aprint eval "use Big::Liar; 1;" ? "ok 2\n" : "not ok 2\n"; 1N/Aprint "ok 3 - TEST_VERBOSE\n"; 1N/Ause ExtUtils::MakeMaker; 1N/Amy $mm = WriteMakefile( 1N/A _KEEP_AFTER_FLUSH => 1 1N/Aforeach my $key (qw(INST_LIB INST_ARCHLIB)) { 1N/Ause ExtUtils::MakeMaker; 1N/A NAME => 'Problem::Module', 1N/Aprintf "\@INC %s .\n", (grep { $_ eq '.' } @INC) ? "has" : "doesn't have"; 1N/A # Convert to a relative, native file path. 1N/A $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);