Win32API::File cleanup
Jerry D. Hedden [Tue, 17 Jul 2007 14:21:00 +0000 (10:21 -0400)]
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510707171121y3db38817ic4be4cbdd8c8696e@mail.gmail.com>

p4raw-id: //depot/perl@31627

ext/Win32API/File/Makefile.PL

index c84d1de..a753db5 100644 (file)
@@ -104,7 +104,10 @@ ${_final}_to_blib: $final
         -e "pm_to_blib({ ',neatvalue($final),',',
        neatvalue($self->catfile('$(INST_ARCHLIB)',@path,$final)), ' },',
        neatvalue($self->catfile(qw[$(INST_LIB) auto])), ')"
-       @$(TOUCH) ', $_final, "_to_blib\n";
+       @$(TOUCH) ', $_final, "_to_blib
+
+realclean ::
+       $self->{RM_RF} ", $self->catfile('$(INST_ARCHLIB)', $path[0]), "\n";
 
            push( @clean, $outfile, $bin, $obj, $_final . "_to_blib" );
            push( @realclean, $final )   unless  $noreb;