From: Philip Newton <pne@cpan.org>
Date: Tue, 29 Aug 2000 21:48:18 +0000 (+0200)
Subject: [ID 20000829.026] [PATCH 6868] File::Temp
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c74c4dcd3bbe1196a61810cec73bb26e37786780;p=p5sagit%2Fp5-mst-13.2.git

[ID 20000829.026] [PATCH 6868] File::Temp
Message-Id: <200008291947.VAA13628@smtp2.nikoma.de>

p4raw-id: //depot/perl@6892
---

diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm
index 956a41d..6548018 100644
--- a/lib/File/Temp.pm
+++ b/lib/File/Temp.pm
@@ -1526,8 +1526,6 @@ sub unlink0 {
     @okstat = (1,2,3,4,5,7,8,9,10);
   } elsif ($^O eq 'os2') {
     @okstat = (0, 2..$#fh);
-  } elsif ($^O eq 'dos') {
-    @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') {