Craig A. Berry wrote:
I have another idea and will hopefully have a patch out shortly.
And the idea was the very simple one of moving the dummy-install
directory up a level so it is a sibling of the t directory. That was
easy to do, doesn't add complexity, and works fine. The attached patch
was taken against bleadperl but will apply with -p2 against a standalone
MakeMaker.
--- lib/ExtUtils/t/basic.t;-0 Fri May 23 09:23:28 2003
+++ lib/ExtUtils/t/basic.t Thu Jun 5 12:14:34 2003
@@ -40,7 +40,7 @@
ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
diag("chdir failed: $!");
-my @mpl_out = run(qq{$perl Makefile.PL "PREFIX=dummy-install"});
+my @mpl_out = run(qq{$perl Makefile.PL "PREFIX=../dummy-install"});
cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) ||
diag(@mpl_out);
@@ -119,12 +119,12 @@
like( $install_out, qr/^Installing /m );
like( $install_out, qr/^Writing /m );
-ok( -r 'dummy-install', ' install dir created' );
+ok( -r '../dummy-install', ' install dir created' );
my %files = ();
find( sub {
# do it case-insensitive for non-case preserving OSs
$files{lc $_} = $File::Find::name;
-}, 'dummy-install' );
+}, '../dummy-install' );
ok( $files{'dummy.pm'}, ' Dummy.pm installed' );
ok( $files{'liar.pm'}, ' Liar.pm installed' );
ok( $files{'.packlist'}, ' packlist created' );
@@ -172,7 +172,7 @@
# Make sure init_dirscan doesn't go into the distdir
[EMAIL PROTECTED] = run(qq{$perl Makefile.PL "PREFIX=dummy-install"});
[EMAIL PROTECTED] = run(qq{$perl Makefile.PL "PREFIX=../dummy-install"});
cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) || diag(@mpl_out);
--- lib/ExtUtils/t/zz_cleanup_dummy.t;-0 Sat Apr 12 09:54:18 2003
+++ lib/ExtUtils/t/zz_cleanup_dummy.t Thu Jun 5 12:23:10 2003
@@ -12,10 +12,12 @@
use strict;
-use Test::More tests => 2;
+use Test::More tests => 3;
use File::Path;
rmtree('Big-Dummy');
ok(!-d 'Big-Dummy', 'Big-Dummy cleaned up');
rmtree('Problem-Module');
ok(!-d 'Problem-Module', 'Problem-Module cleaned up');
+rmtree('dummy-install');
+ok(!-d 'dummy-install', 'dummy-install cleaned up');
