In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/4dc941f7cb795735b9458431b362c0fed23ae92b?hp=f1c82292ac9c0c840d93a9bed586b6ab5c6110f4>
- Log -----------------------------------------------------------------
commit 4dc941f7cb795735b9458431b362c0fed23ae92b
Author: Tony Cook <t...@develop-help.com>
Date: Sun Sep 26 12:12:55 2010 +1000
make PL_charclass available to modules under Win32
-----------------------------------------------------------------------
Summary of changes:
embedvar.h | 3 +++
perlapi.h | 2 ++
perlvars.h | 1 +
3 files changed, 6 insertions(+), 0 deletions(-)
diff --git a/embedvar.h b/embedvar.h
index 3a9bccc..a8ec4cf 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -707,6 +707,8 @@
#define PL_GYes (my_vars->GYes)
#define PL_appctx (my_vars->Gappctx)
#define PL_Gappctx (my_vars->Gappctx)
+#define PL_charclass (my_vars->Gcharclass)
+#define PL_Gcharclass (my_vars->Gcharclass)
#define PL_check (my_vars->Gcheck)
#define PL_Gcheck (my_vars->Gcheck)
#define PL_csighandlerp (my_vars->Gcsighandlerp)
@@ -799,6 +801,7 @@
#define PL_GNo PL_No
#define PL_GYes PL_Yes
#define PL_Gappctx PL_appctx
+#define PL_Gcharclass PL_charclass
#define PL_Gcheck PL_check
#define PL_Gcsighandlerp PL_csighandlerp
#define PL_Gcurinterp PL_curinterp
diff --git a/perlapi.h b/perlapi.h
index 454e8d1..8e2c1f0 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -111,6 +111,8 @@ END_EXTERN_C
#define PL_Yes (*Perl_GYes_ptr(NULL))
#undef PL_appctx
#define PL_appctx (*Perl_Gappctx_ptr(NULL))
+#undef PL_charclass
+#define PL_charclass (*Perl_Gcharclass_ptr(NULL))
#undef PL_check
#define PL_check (*Perl_Gcheck_ptr(NULL))
#undef PL_csighandlerp
diff --git a/perlvars.h b/perlvars.h
index 2619ac7..8fb8484 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -120,6 +120,7 @@ PERLVAR(Gwatch_pvx, char*)
PERLVAR(Gppaddr, Perl_ppaddr_t*) /* or opcode.h */
PERLVAR(Gcheck, Perl_check_t *) /* or opcode.h */
PERLVARA(Gfold_locale, 256, unsigned char) /* or perl.h */
+PERLVARA(Gcharclass, 256, U32)
#endif
#ifdef PERL_NEED_APPCTX
--
Perl5 Master Repository
