diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-23 12:16:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-23 12:16:47 +0000 |
| commit | 6d697788dfbbf5dba78216c0da10ca1dce806bbe (patch) | |
| tree | 920f5772c534bbad190cb5dae2b33a6238ad8715 /lib/File/Path.pm | |
| parent | d5d9880cc2523c10f7be68257f4f1768a4e552d9 (diff) | |
| download | perl-6d697788dfbbf5dba78216c0da10ca1dce806bbe.tar.gz | |
Miscellaneous MacOS Classic library updates from Matthias Neeracher.
p4raw-id: //depot/perl@7412
Diffstat (limited to 'lib/File/Path.pm')
| -rw-r--r-- | lib/File/Path.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 46f360a461..daa2eae0fb 100644 --- a/lib/File/Path.pm +++ b/lib/File/Path.pm @@ -105,8 +105,8 @@ 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'); +my $force_writeable = ($^O eq 'os2' || $^O eq 'dos' || $^O eq 'MSWin32' || + $^O eq 'amigaos' || $^O eq 'MacOS'); sub mkpath { my($paths, $verbose, $mode) = @_; |