diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-08-12 15:52:23 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-12 18:04:07 -0700 |
commit | 46959f1ccb067b059f259c54d71a91620fd19d8b (patch) | |
tree | 62980e0cdfa3f00cf42757205eb8e943f2dbc98b /mg.c | |
parent | 25921d77af3f3b8aa517cc580f9640df02f3d713 (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |