summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-08-12 15:52:23 -0700
committerFather Chrysostomos <sprout@cpan.org>2013-08-12 18:04:07 -0700
commit46959f1ccb067b059f259c54d71a91620fd19d8b (patch)
tree62980e0cdfa3f00cf42757205eb8e943f2dbc98b /mg.c
parent25921d77af3f3b8aa517cc580f9640df02f3d713 (diff)
downloadperl-46959f1ccb067b059f259c54d71a91620fd19d8b.tar.gz
mg.c: Fix U32-to-bool assignment
This was caused by 3805b5fb04. This commit restores the !=0 that was there before 2fd13eccf0. Thanks to Steve Hay for helping to track down the smoke failures.
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index 0ce58ab5d2..57411810af 100644
--- a/mg.c
+++ b/mg.c
@@ -116,7 +116,7 @@ S_save_magic_flags(pTHX_ I32 mgs_ix, SV *sv, U32 flags)
mgs = SSPTR(mgs_ix, MGS*);
mgs->mgs_sv = sv;
mgs->mgs_magical = SvMAGICAL(sv);
- mgs->mgs_readonly = SvREADONLY(sv);
+ mgs->mgs_readonly = SvREADONLY(sv) != 0;
mgs->mgs_ss_ix = PL_savestack_ix; /* points after the saved destructor */
mgs->mgs_bumped = bumped;