WriteEmptyMakefile rmtree _eumm, clean target removes Makefile

Author: mohawk2

lib/ExtUtils/MakeMaker.pm

@@ -818,7 +818,10 @@ sub WriteEmptyMakefile {
     croak "WriteEmptyMakefile: Need an even number of args" if @_ % 2;
 
     my %att = @_;
+    $att{NAME} = 'Dummy' unless $att{NAME}; # eliminate pointless warnings
     my $self = MM->new(\%att);
+    require File::Path;
+    File::Path::rmtree '_eumm'; # because MM->new does too much stuff
 
     my $new = $self->{MAKEFILE};
     my $old = $self->{MAKEFILE_OLD};
@@ -829,7 +832,7 @@ sub WriteEmptyMakefile {
         _rename($new, $old) or warn "rename $new => $old: $!"
     }
     open my $mfh, '>', $new or die "open $new for write: $!";
-    print $mfh <<'EOP';
+    printf $mfh <<'EOP', $self->{RM_F}, $self->{MAKEFILE};
 all :
 
 pure_nolink :
@@ -838,7 +841,10 @@ dynamic :
 
 static :
 
+realclean : clean
+
 clean :
+	%s %s
 
 install :
 

t/WriteEmptyMakefile.t

@@ -12,26 +12,26 @@ use Cwd; my $cwd = getcwd; END { chdir $cwd } # so File::Temp can cleanup
 chdir $tmpdir;
 
 use strict;
-use Test::More tests => 5;
+use Test::More tests => 6;
 
 use ExtUtils::MakeMaker qw(WriteEmptyMakefile);
 use TieOut;
 
 can_ok __PACKAGE__, 'WriteEmptyMakefile';
 
 eval { WriteEmptyMakefile("something"); };
-like $@, qr/Need an even number of args/;
-
+like $@, qr/Need an even number of args/, 'correct exception';
 
 {
-    ok( my $stdout = tie *STDOUT, 'TieOut' );
+    ok( (my $stdout = tie *STDOUT, 'TieOut' ), 'tie stdout');
 
-    ok !-e 'wibble';
+    ok !-e 'wibble', 'no wibble';
     END { 1 while unlink 'wibble' }
 
     WriteEmptyMakefile(
         NAME            => "Foo",
         FIRST_MAKEFILE  => "wibble",
     );
-    ok -e 'wibble';
+    ok -e 'wibble', 'yes wibble';
+    ok !-d '_eumm', 'no _eumm lying around';
 }