In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/09391cc554f6d7daf76cbe5b4c7ce18c82372b70?hp=b4fbebdebb0ca08b0fd5e052deb2d8c7d60d527a>
- Log -----------------------------------------------------------------
commit 09391cc554f6d7daf76cbe5b4c7ce18c82372b70
Author: Nicholas Clark <n...@ccl4.org>
Date: Wed Dec 12 10:18:21 2012 +0100
In DosGlob.xs, add a block around MY_CXT_INIT, as it contains a declaration.
The macro MY_CXT_INIT contains a variable declaration, and xsubpp doesn't
wrap XS BOOT sections within a block, hence code at the start of the BOOT
section may already be after code. Hence wrap MY_CXT_INIT within a block, to
ensure that its initialisation is before any code.
-----------------------------------------------------------------------
Summary of changes:
ext/File-DosGlob/DosGlob.xs | 2 ++
1 files changed, 2 insertions(+), 0 deletions(-)
diff --git a/ext/File-DosGlob/DosGlob.xs b/ext/File-DosGlob/DosGlob.xs
index ce59830..929a237 100644
--- a/ext/File-DosGlob/DosGlob.xs
+++ b/ext/File-DosGlob/DosGlob.xs
@@ -29,6 +29,7 @@ MODULE = File::DosGlob PACKAGE = File::DosGlob
PROTOTYPES: DISABLE
BOOT:
+{
MY_CXT_INIT;
{
dMY_CXT;
@@ -36,6 +37,7 @@ BOOT:
MY_CXT.x_DG_OLD_OPHOOK = PL_opfreehook;
PL_opfreehook = glob_ophook;
}
+}
SV *
_callsite(...)
--
Perl5 Master Repository
