Remove obsolete interpreter variable PL_utf8_alnumc
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 13 Sep 2009 10:45:47 +0000 (12:45 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 13 Sep 2009 11:01:07 +0000 (13:01 +0200)
embedvar.h
intrpvar.h
perl.c
perlapi.h
sv.c

index 024b6c1..2a9866f 100644 (file)
 #define PL_unlockhook          (vTHX->Iunlockhook)
 #define PL_unsafe              (vTHX->Iunsafe)
 #define PL_utf8_alnum          (vTHX->Iutf8_alnum)
-#define PL_utf8_alnumc         (vTHX->Iutf8_alnumc)
 #define PL_utf8_alpha          (vTHX->Iutf8_alpha)
 #define PL_utf8_ascii          (vTHX->Iutf8_ascii)
 #define PL_utf8_cntrl          (vTHX->Iutf8_cntrl)
 #define PL_Iunlockhook         PL_unlockhook
 #define PL_Iunsafe             PL_unsafe
 #define PL_Iutf8_alnum         PL_utf8_alnum
-#define PL_Iutf8_alnumc                PL_utf8_alnumc
 #define PL_Iutf8_alpha         PL_utf8_alpha
 #define PL_Iutf8_ascii         PL_utf8_ascii
 #define PL_Iutf8_cntrl         PL_utf8_cntrl
index 9f8e443..02d6515 100644 (file)
@@ -513,7 +513,6 @@ PERLVAR(Inumeric_name,      char *)         /* Name of current numeric locale */
 
 /* utf8 character classes */
 PERLVAR(Iutf8_alnum,   SV *)
-PERLVAR(Iutf8_alnumc,  SV *)
 PERLVAR(Iutf8_ascii,   SV *)
 PERLVAR(Iutf8_alpha,   SV *)
 PERLVAR(Iutf8_space,   SV *)
diff --git a/perl.c b/perl.c
index 3c80c97..7876adf 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -985,7 +985,6 @@ perl_destruct(pTHXx)
 
     /* clear utf8 character classes */
     SvREFCNT_dec(PL_utf8_alnum);
-    SvREFCNT_dec(PL_utf8_alnumc);
     SvREFCNT_dec(PL_utf8_ascii);
     SvREFCNT_dec(PL_utf8_alpha);
     SvREFCNT_dec(PL_utf8_space);
@@ -1005,7 +1004,6 @@ perl_destruct(pTHXx)
     SvREFCNT_dec(PL_utf8_idstart);
     SvREFCNT_dec(PL_utf8_idcont);
     PL_utf8_alnum      = NULL;
-    PL_utf8_alnumc     = NULL;
     PL_utf8_ascii      = NULL;
     PL_utf8_alpha      = NULL;
     PL_utf8_space      = NULL;
index 3c0df25..1d65db5 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -684,8 +684,6 @@ END_EXTERN_C
 #define PL_unsafe              (*Perl_Iunsafe_ptr(aTHX))
 #undef  PL_utf8_alnum
 #define PL_utf8_alnum          (*Perl_Iutf8_alnum_ptr(aTHX))
-#undef  PL_utf8_alnumc
-#define PL_utf8_alnumc         (*Perl_Iutf8_alnumc_ptr(aTHX))
 #undef  PL_utf8_alpha
 #define PL_utf8_alpha          (*Perl_Iutf8_alpha_ptr(aTHX))
 #undef  PL_utf8_ascii
diff --git a/sv.c b/sv.c
index 6e9db73..ee78fbc 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -12168,7 +12168,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
     /* utf8 character classes */
     PL_utf8_alnum      = sv_dup_inc(proto_perl->Iutf8_alnum, param);
-    PL_utf8_alnumc     = sv_dup_inc(proto_perl->Iutf8_alnumc, param);
     PL_utf8_ascii      = sv_dup_inc(proto_perl->Iutf8_ascii, param);
     PL_utf8_alpha      = sv_dup_inc(proto_perl->Iutf8_alpha, param);
     PL_utf8_space      = sv_dup_inc(proto_perl->Iutf8_space, param);