This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence compilter warning
[perl5.git] / ext / attributes / attributes.xs
index f7bb490..07b7b8d 100644 (file)
@@ -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