Hey, but "or" is low-prec. So this statement never worked.
Rafael Garcia-Suarez [Tue, 25 Sep 2007 14:28:20 +0000 (14:28 +0000)]
p4raw-id: //depot/perl@31969

lib/ExtUtils/MM_Unix.pm

index 7ce004e..0f1048d 100644 (file)
@@ -35,8 +35,7 @@ BEGIN {
     $Is_SunOS4  = $^O eq 'sunos';
     $Is_Solaris = $^O eq 'solaris';
     $Is_SunOS   = $Is_SunOS4 || $Is_Solaris;
-    $Is_BSD     = $^O =~ /^(?:free|net|open)bsd$/ or
-                  $^O eq 'bsdos' or $^O eq 'interix' or $^O eq 'dragonfly';
+    $Is_BSD     = $^O =~ /^(?:(?:free|net|open)bsd|bsdos|interix|dragonfly)$/;
 }
 
 BEGIN {