[perl 7711: EPOC] updates

[p5sagit/p5-mst-13.2.git] / lib / File / Path.pm

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 8b0772d..3859f24 100644 (file)
--- a/lib/File/Path.pm
+++ b/lib/File/Path.pm
@@ -106,7 +106,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 'dos' || $^O eq 'MSWin32' ||
-                      $^O eq 'amigaos' || $^O eq 'MacOS');
+                      $^O eq 'amigaos' || $^O eq 'MacOS' || $^O eq 'epoc');
 
 sub mkpath {
     my($paths, $verbose, $mode) = @_;