diff options
| author | ml1050 <ml1050@freemail.hu> | 2000-08-27 01:24:40 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-27 15:02:37 +0000 |
| commit | 6bbf1b34247ce712172c78aebaa1dc75c828f3bc (patch) | |
| tree | 1566d54de3389d64b62d58c5a091676993070cec /lib/File | |
| parent | 418918ac085b3a689dd373e87c271a6196b21454 (diff) | |
| download | perl-6bbf1b34247ce712172c78aebaa1dc75c828f3bc.tar.gz | |
DJGPP update from Laszlo Molnar.
Subject: [ID 20000826.014] Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6788 on dos-djgpp djgpp (UNINSTALLED) [PATCH]
Message-Id: <20000826232440.A439@freemail.hu>
p4raw-id: //depot/perl@6844
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Temp.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm index fd84744dc9..956a41d54a 100644 --- a/lib/File/Temp.pm +++ b/lib/File/Temp.pm @@ -732,7 +732,7 @@ sub _can_do_level { return 1 if $level == STANDARD; # Currently, the systems that can do HIGH or MEDIUM are identical - if ( $^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'cygwin') { + if ( $^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'cygwin' || $^O eq 'dos') { return 0; } else { return 1; @@ -1530,6 +1530,8 @@ sub unlink0 { @okstat = (2,3,4,5,7,8,9,10); } elsif ($^O eq 'VMS') { # device and file ID are sufficient @okstat = (0, 1); + } elsif ($^O eq 'dos') { + @okstat = (0,2..7,11..$#fh); } # Now compare each entry explicitly by number |