Silence compilter warning

See thread beginning at
http://nntp.perl.org/group/perl.perl5.porters/244215

diff --git a/ext/attributes/attributes.pm b/ext/attributes/attributes.pm
index 402caf1..c60f940 100644 (file)
--- a/ext/attributes/attributes.pm
+++ b/ext/attributes/attributes.pm
@@ -1,6 +1,6 @@
 package attributes;
 
-our $VERSION = 0.32;
+our $VERSION = 0.33;
 
 @EXPORT_OK = qw(get reftype);
 @EXPORT = ();

diff --git a/ext/attributes/attributes.xs b/ext/attributes/attributes.xs
index f7bb490..07b7b8d 100644 (file)
--- a/ext/attributes/attributes.xs
+++ b/ext/attributes/attributes.xs
@@ -66,7 +66,7 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)
                        bool warn =
                            !CvISXSUB(MUTABLE_CV(sv))
                         && CvROOT(MUTABLE_CV(sv))
-                        && !CvLVALUE(MUTABLE_CV(sv)) != negated;
+                        && cBOOL(CvLVALUE(MUTABLE_CV(sv))) == negated;
                        if (negated)
                            CvFLAGS(MUTABLE_CV(sv)) &= ~CVf_LVALUE;
                        else