Fix rmtree argument to remove write protected files

svn path=/trunk/perlmods/; revision=8501

ChangeLog

@@ -1,3 +1,12 @@
+2005-02-21  Tim Jenness  <tjenness@cpan.org>
+
+	* t/tempfile.t: Add test for write proteceted temp file (thanks to
+	Slaven Rezic)
+
+	* Temp.pm (_can_do_level): Change argument to rmtree to make it
+	attempt to remove write-protected files on cleanup (thanks to
+	Slaven Rezic)
+
 2003-08-16  Tim Jenness  <tjenness@cpan.org>
 
 	--- RELEASE V0.14 ---

Temp.pm

@@ -855,7 +855,7 @@ sub _can_do_level {
     # Dirs
     foreach my $dir (@dirs_to_unlink) {
       if (-d $dir) {
-	rmtree($dir, $DEBUG, 1);
+	rmtree($dir, $DEBUG, 0);
       }
     }
 

t/tempfile.t

@@ -3,7 +3,7 @@
 
 use strict;
 use Test;
-BEGIN { plan tests => 20}
+BEGIN { plan tests => 22}
 use File::Spec;
 
 # Will need to check that all files were unlinked correctly
@@ -85,6 +85,16 @@ push(@files, $tempfile);
 			   );
 
 
+ok( (-f $tempfile ));
+push(@files, $tempfile);
+
+# Test tempfile
+# ..and another with changed permissions (read-only)
+($fh, $tempfile) = tempfile(
+                           DIR => $tempdir,
+                          );
+chmod 0444, $tempfile;
+
 ok( (-f $tempfile ));
 push(@files, $tempfile);