[perl.git] branch blead updated. v5.27.9-169-g4dcaa95638

[Karl Williamson]

In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/4dcaa9563832b4722c1fa286256c2c8c1ec91fa4?hp=6726b4f40a8baa55f93e1dc39b22e799d43bd9d0>

- Log -----------------------------------------------------------------
commit 4dcaa9563832b4722c1fa286256c2c8c1ec91fa4
Author: Karl Williamson <k...@cpan.org>
Date:   Fri Mar 16 14:11:52 2018 -0600

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

-----------------------------------------------------------------------

Summary of changes:
 ext/attributes/attributes.pm | 2 +-
 ext/attributes/attributes.xs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ext/attributes/attributes.pm b/ext/attributes/attributes.pm
index 402caf1834..c60f9406b9 100644
--- 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 f7bb490697..07b7b8dfe8 100644
--- 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

-- 
Perl5 Master Repository