[rt.cpan.org #87202] [PATCH] wrong return precedence

[Reini Urban via RT]

Tue Jul 23 13:17:39 2013: Request 87202 was acted upon.
Transaction: Ticket created by rur...@x-ray.at
       Queue: Alien-wxWidgets
     Subject: [PATCH] wrong return precedence
   Broken in: (no value)
    Severity: (no value)
       Owner: Nobody
  Requestors: rur...@x-ray.at
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=87202 >


returns binds stronger than and, so the expressions after and are ignored.
See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802

diff -bu ./lib/Alien/wxWidgets/Utility.pm~ ./lib/Alien/wxWidgets/Utility.pm
--- ./lib/Alien/wxWidgets/Utility.pm~	2013-04-13 03:15:38.000000000 -0500
+++ ./lib/Alien/wxWidgets/Utility.pm	2013-07-19 16:24:57.200682998 -0500
@@ -74,7 +74,7 @@
 sub awx_cc_is_msvc {
     my( $cc ) = @_;
 
-    return $^O =~ /MSWin32/ and $cc =~ /^cl/i;
+    return ($^O =~ /MSWin32/ and $cc =~ /^cl/i);
 }
 
 sub awx_cc_is_gcc {