diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 2000-11-19 20:33:30 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-20 01:58:11 +0000 |
| commit | fa6a1c441b7e2c8c5e7ee1e3836a41fc8a364e89 (patch) | |
| tree | 551cec2742d1066daac417e04c5e1e00811b967e /lib/File/Path.pm | |
| parent | 07d29b54c8a15c0fd1ebf8765665546568dfb928 (diff) | |
| download | perl-fa6a1c441b7e2c8c5e7ee1e3836a41fc8a364e89.tar.gz | |
[perl 7711: EPOC] updates
Message-ID: <25575.974658810@www23.gmx.net>
p4raw-id: //depot/perl@7758
Diffstat (limited to 'lib/File/Path.pm')
| -rw-r--r-- | lib/File/Path.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 8b0772d0e1..3859f248eb 100644 --- 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) = @_; |