do subname() is deprecated, so update this hunk of test dating from perl 1.

[p5sagit/p5-mst-13.2.git] / perlapi.h

diff --git a/perlapi.h b/perlapi.h
index 27be4a2..1d65db5 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -466,6 +466,8 @@ END_EXTERN_C
 #define PL_op                  (*Perl_Iop_ptr(aTHX))
 #undef  PL_op_mask
 #define PL_op_mask             (*Perl_Iop_mask_ptr(aTHX))
+#undef  PL_opfreehook
+#define PL_opfreehook          (*Perl_Iopfreehook_ptr(aTHX))
 #undef  PL_opsave
 #define PL_opsave              (*Perl_Iopsave_ptr(aTHX))
 #undef  PL_origalen
@@ -682,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