diff options
| author | Molnar Laszlo <molnarl@cdata.tvnet.hu> | 1997-11-21 11:58:26 +0100 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-17 14:10:50 +0000 |
| commit | 39e571d41067215a80f26089b260f1418caeb36b (patch) | |
| tree | e0bca433f79179f69a7b158d5bcd0759cc98e18c /lib/File | |
| parent | 1f70e1ea8280242937e42514e140f4e467e09404 (diff) | |
| download | perl-39e571d41067215a80f26089b260f1418caeb36b.tar.gz | |
Major changes to the DOS/djgpp port (including threading):
Subject: Re: dos-djgpp port not in perl 5.004_54
p4raw-id: //depot/perl@373
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Basename.pm | 2 | ||||
| -rw-r--r-- | lib/File/Find.pm | 2 | ||||
| -rw-r--r-- | lib/File/Path.pm | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index e4863f8911..5c6299e596 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -141,7 +141,7 @@ sub fileparse_set_fstype { my @old = ($Fileparse_fstype, $Fileparse_igncase); if (@_) { $Fileparse_fstype = $_[0]; - $Fileparse_igncase = ($_[0] =~ /^(?:MacOS|VMS|AmigaOS|os2|RISCOS|MSWin32)/i); + $Fileparse_igncase = ($_[0] =~ /^(?:MacOS|VMS|AmigaOS|os2|RISCOS|MSWin32|MSDOS)/i); } wantarray ? @old : $old[0]; } diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 033cfe5e9d..70629d4ce0 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -274,7 +274,7 @@ if ($^O =~ m:^mswin32:i) { } $dont_use_nlink = 1 - if $^O eq 'os2' || $^O eq 'msdos' || $^O eq 'amigaos'; + if $^O eq 'os2' || $^O eq 'dos' || $^O eq 'amigaos'; 1; diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 43856dfe7b..492f150b5a 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 { |