perlfaq typos

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

diff --git a/XSUB.h b/XSUB.h
index 48cf876..9111da2 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -79,15 +79,83 @@
 # define XS_VERSION_BOOTCHECK
 #endif
 
+#ifdef PERL_CAPI
+#  define VTBL_sv              get_vtbl(want_vtbl_sv)
+#  define VTBL_env             get_vtbl(want_vtbl_env)
+#  define VTBL_envelem         get_vtbl(want_vtbl_envelem)
+#  define VTBL_sig             get_vtbl(want_vtbl_sig)
+#  define VTBL_sigelem         get_vtbl(want_vtbl_sigelem)
+#  define VTBL_pack            get_vtbl(want_vtbl_pack)
+#  define VTBL_packelem                get_vtbl(want_vtbl_packelem)
+#  define VTBL_dbline          get_vtbl(want_vtbl_dbline)
+#  define VTBL_isa             get_vtbl(want_vtbl_isa)
+#  define VTBL_isaelem         get_vtbl(want_vtbl_isaelem)
+#  define VTBL_arylen          get_vtbl(want_vtbl_arylen)
+#  define VTBL_glob            get_vtbl(want_vtbl_glob)
+#  define VTBL_mglob           get_vtbl(want_vtbl_mglob)
+#  define VTBL_nkeys           get_vtbl(want_vtbl_nkeys)
+#  define VTBL_taint           get_vtbl(want_vtbl_taint)
+#  define VTBL_substr          get_vtbl(want_vtbl_substr)
+#  define VTBL_vec             get_vtbl(want_vtbl_vec)
+#  define VTBL_pos             get_vtbl(want_vtbl_pos)
+#  define VTBL_bm              get_vtbl(want_vtbl_bm)
+#  define VTBL_fm              get_vtbl(want_vtbl_fm)
+#  define VTBL_uvar            get_vtbl(want_vtbl_uvar)
+#  define VTBL_defelem         get_vtbl(want_vtbl_defelem)
+#  define VTBL_regexp          get_vtbl(want_vtbl_regexp)
+#  define VTBL_regdata         get_vtbl(want_vtbl_regdata)
+#  define VTBL_regdatum                get_vtbl(want_vtbl_regdatum)
+#  ifdef USE_LOCALE_COLLATE
+#    define VTBL_collxfrm      get_vtbl(want_vtbl_collxfrm)
+#  endif
+#  ifdef OVERLOAD
+#    define VTBL_amagic                get_vtbl(want_vtbl_amagic)
+#    define VTBL_amagicelem    get_vtbl(want_vtbl_amagicelem)
+#  endif
+#else
+#  define VTBL_sv              &PL_vtbl_sv
+#  define VTBL_env             &PL_vtbl_env
+#  define VTBL_envelem         &PL_vtbl_envelem
+#  define VTBL_sig             &PL_vtbl_sig
+#  define VTBL_sigelem         &PL_vtbl_sigelem
+#  define VTBL_pack            &PL_vtbl_pack
+#  define VTBL_packelem                &PL_vtbl_packelem
+#  define VTBL_dbline          &PL_vtbl_dbline
+#  define VTBL_isa             &PL_vtbl_isa
+#  define VTBL_isaelem         &PL_vtbl_isaelem
+#  define VTBL_arylen          &PL_vtbl_arylen
+#  define VTBL_glob            &PL_vtbl_glob
+#  define VTBL_mglob           &PL_vtbl_mglob
+#  define VTBL_nkeys           &PL_vtbl_nkeys
+#  define VTBL_taint           &PL_vtbl_taint
+#  define VTBL_substr          &PL_vtbl_substr
+#  define VTBL_vec             &PL_vtbl_vec
+#  define VTBL_pos             &PL_vtbl_pos
+#  define VTBL_bm              &PL_vtbl_bm
+#  define VTBL_fm              &PL_vtbl_fm
+#  define VTBL_uvar            &PL_vtbl_uvar
+#  define VTBL_defelem         &PL_vtbl_defelem
+#  define VTBL_regexp          &PL_vtbl_regexp
+#  define VTBL_regdata         &PL_vtbl_regdata
+#  define VTBL_regdatum                &PL_vtbl_regdatum
+#  ifdef USE_LOCALE_COLLATE
+#    define VTBL_collxfrm      &PL_vtbl_collxfrm
+#  endif
+#  ifdef OVERLOAD
+#    define VTBL_amagic                &PL_vtbl_amagic
+#    define VTBL_amagicelem    &PL_vtbl_amagicelem
+#  endif
+#endif
+
 #ifdef PERL_OBJECT
-#include "ObjXSub.h"
+#include "objXSUB.h"
 #ifndef NO_XSLOCKS
 #ifdef WIN32
-#include "XSLock.h"
+#include "XSlock.h"
 #endif  /* WIN32 */
 #endif  /* NO_XSLOCKS */
 #else
 #ifdef PERL_CAPI
-#include "PerlCAPI.h"
+#include "perlCAPI.h"
 #endif
 #endif /* PERL_OBJECT */