From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 4 Mar 1998 00:46:46 +0000 (+0000)
Subject: [win32] remove redundancy in File::Find
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e8584ad361ac6d437a790e5f45230558fe68808;p=p5sagit%2Fp5-mst-13.2.git

[win32] remove redundancy in File::Find

p4raw-id: //depot/win32/perl@722
---

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 0fb7411..7abebc6 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -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;