diff options
| author | Tony Cook <tony@develop-help.com> | 2010-09-26 12:12:55 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2010-09-26 12:16:30 +1000 |
| commit | 4dc941f7cb795735b9458431b362c0fed23ae92b (patch) | |
| tree | 5e6788a9654bc2761ac4296c574bc3fd1288b65e | |
| parent | f1c82292ac9c0c840d93a9bed586b6ab5c6110f4 (diff) | |
| download | perl-4dc941f7cb795735b9458431b362c0fed23ae92b.tar.gz | |
make PL_charclass available to modules under Win32
| -rw-r--r-- | embedvar.h | 3 | ||||
| -rw-r--r-- | perlapi.h | 2 | ||||
| -rw-r--r-- | perlvars.h | 1 |
3 files changed, 6 insertions, 0 deletions
diff --git a/embedvar.h b/embedvar.h index 3a9bcccca6..a8ec4cf1bc 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 @@ -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 2619ac7599..8fb8484c33 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 |