In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e1812838584f1ccec086cb1385d37f694942a1f2?hp=3db719fef4a14adacd56f6db1d3eb4e9a427eb99>
- Log ----------------------------------------------------------------- commit e1812838584f1ccec086cb1385d37f694942a1f2 Author: David Mitchell <[email protected]> Date: Tue Feb 3 10:15:52 2015 +0000 fix B.xs on win builds My recent commit c3890f9c66 appears to have broken win32 builds, I guess because it doesn't like the args to the macro sv_setsv() being spilt across #idfef's. So don't do that. ----------------------------------------------------------------------- Summary of changes: ext/B/B.xs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/ext/B/B.xs b/ext/B/B.xs index c4d218e..41518d8 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -822,13 +822,11 @@ BOOT: cv = newXS("B::diehook", intrpvar_sv_common, file); ASSIGN_COMMON_ALIAS(I, diehook); sv = get_sv("B::OP::does_parent", GV_ADDMULTI); - sv_setsv(sv, #ifdef PERL_OP_PARENT - &PL_sv_yes + sv_setsv(sv, &PL_sv_yes); #else - &PL_sv_no + sv_setsv(sv, &PL_sv_no); #endif - ); } #ifndef PL_formfeed -- Perl5 Master Repository
