In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/762333d9ece738d85d8c0668c9b2dc6e83281c73?hp=08b8e3e1a56c513f5c879d172f8882354c2b53e5>
- Log -----------------------------------------------------------------
commit 762333d9ece738d85d8c0668c9b2dc6e83281c73
Author: Daniel Dragan <bul...@hotmail.com>
Date: Mon Jun 9 05:50:19 2014 -0400
SvREFCNT_dec_NN in pp_require
Some compilers (GCC) will inline+optimize this, some don't (Visual C). Make
it clear to not check for null twice.
-----------------------------------------------------------------------
Summary of changes:
pp_ctl.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/pp_ctl.c b/pp_ctl.c
index 6a619ce..7f80ea4 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3962,11 +3962,11 @@ PP(pp_require)
filter_has_file = 0;
filter_cache = NULL;
if (filter_state) {
- SvREFCNT_dec(filter_state);
+ SvREFCNT_dec_NN(filter_state);
filter_state = NULL;
}
if (filter_sub) {
- SvREFCNT_dec(filter_sub);
+ SvREFCNT_dec_NN(filter_sub);
filter_sub = NULL;
}
}
--
Perl5 Master Repository
