[win32] remove redundancy in File::Find
Gurusamy Sarathy [Wed, 4 Mar 1998 00:46:46 +0000 (00:46 +0000)]
p4raw-id: //depot/win32/perl@722

lib/File/Find.pm

index 0fb7411..7abebc6 100644 (file)
@@ -278,13 +278,9 @@ if ($^O eq 'VMS') {
   $Is_VMS = 1;
   $dont_use_nlink = 1;
 }
-if ($^O =~ m:^mswin32:i) {
-  $Is_NT = 1;
-  $dont_use_nlink = 1;
-}
 
 $dont_use_nlink = 1
-    if $^O eq 'os2' || $^O eq 'dos' || $^O eq 'amigaos';
+    if $^O eq 'os2' || $^O eq 'dos' || $^O eq 'amigaos' || $^O eq 'MSWin32';
 
 1;