[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 (file)
--- 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') {