[Module-build-checkins] Module-Build/t/lib DistGen.pm,1.7,1.8

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/t/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28058/t/lib

Modified Files:
	DistGen.pm 
Log Message:
Remove any existing distribution at creation, assuming it is the remains from a test that died prematurely.

Index: DistGen.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/lib/DistGen.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- DistGen.pm	28 Jun 2005 06:26:32 -0000	1.7
+++ DistGen.pm	29 Jun 2005 07:46:41 -0000	1.8
@@ -29,6 +29,11 @@
   );
   my $self = bless( \%data, $package );
 
+  if ( -d $self->dirname ) {
+    warn "Warning: Removing existing directory at '@{[$self->dirname]}'\n";
+    $self->remove;
+  }
+
   $self->_gen_default_filedata();
 
   return $self;