This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix B.xs on win builds
authorDavid Mitchell <davem@iabyn.com>
Tue, 3 Feb 2015 10:15:52 +0000 (10:15 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 3 Feb 2015 10:15:52 +0000 (10:15 +0000)
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.

ext/B/B.xs

index c4d218e..41518d8 100644 (file)
@@ -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