module-build-checkins

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

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

Modified Files:
	DistGen.pm 
Log Message:
Be more persistent when unlinking files; Windows experiences very sporadic failures when unlinking.

Index: DistGen.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/lib/DistGen.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- DistGen.pm	23 Sep 2005 02:34:19 -0000	1.12
+++ DistGen.pm	15 Nov 2005 06:32:49 -0000	1.13
@@ -217,7 +217,7 @@
       my $real_filename = $self->_real_filename( $file );
       my $fullname = File::Spec->catfile( $dist_dirname, $real_filename );
       if ( -e $fullname ) {
-	unlink( $fullname ) || die "Couldn't unlink '$file'\n";
+	1 while unlink( $fullname );
       }
       print "Unlinking pending file '$file'\n" if $VERBOSE;
       delete( $self->{pending}{remove}{$file} );
@@ -242,7 +242,7 @@
       }
 
       if ( -e $fullname ) {
-        unlink( $fullname ) or die "Can't unlink '$file'\n";
+        1 while unlink( $fullname );
       }
 
       my $fh = IO::File->new(">$fullname") or do {
@@ -259,7 +259,7 @@
   my $manifest = File::Spec->catfile( $dist_dirname, 'MANIFEST' );
   unless ( $self->{skip_manifest} ) {
     if ( -e $manifest ) {
-      unlink( $manifest ) or die "Can't remove '$manifest'\n";
+      1 while unlink( $manifest );
     }
     $self->_gen_manifest( $manifest );
   }
@@ -306,7 +306,7 @@
       #print "Leaving file '$name'\n" if $VERBOSE;
     } else {
       print "Unlinking file '$name'\n" if $VERBOSE;
-      unlink( $_ );
+      1 while unlink( $_ );
     }
   }, File::Spec->curdir );