X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FPath.pm;h=492f150b5a303e515a555a431b3e83eddebdea84;hb=39e571d41067215a80f26089b260f1418caeb36b;hp=43856dfe7b997ed39c4ba233c93309cc11c24d70;hpb=1f70e1ea8280242937e42514e140f4e467e09404;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 43856df..492f150 100644
--- a/lib/File/Path.pm
+++ b/lib/File/Path.pm
@@ -111,7 +111,7 @@ my $Is_VMS = $^O eq 'VMS';
 
 # These OSes complain if you want to remove a file that you have no
 # write permission to:
-my $force_writeable = ($^O eq 'os2' || $^O eq 'msdos' || $^O eq 'MSWin32'
+my $force_writeable = ($^O eq 'os2' || $^O eq 'dos' || $^O eq 'MSWin32'
 		       || $^O eq 'amigaos');
 
 sub mkpath {