Re: [perl #18872] File::Basename example misleading

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

diff --git a/perlapi.h b/perlapi.h
index 0a75b51..60d0b5f 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -1,7 +1,7 @@
 /*
  *    perlapi.h
  *
- *    Copyright (c) 1997-2002, Larry Wall
+ *    Copyright (c) 1997-2003, Larry Wall
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -88,6 +88,8 @@ END_EXTERN_C
 #define PL_Argv                        (*Perl_IArgv_ptr(aTHX))
 #undef  PL_Cmd
 #define PL_Cmd                 (*Perl_ICmd_ptr(aTHX))
+#undef  PL_DBassertion
+#define PL_DBassertion         (*Perl_IDBassertion_ptr(aTHX))
 #undef  PL_DBcv
 #define PL_DBcv                        (*Perl_IDBcv_ptr(aTHX))
 #undef  PL_DBgv
@@ -494,6 +496,8 @@ END_EXTERN_C
 #define PL_sig_pending         (*Perl_Isig_pending_ptr(aTHX))
 #undef  PL_sighandlerp
 #define PL_sighandlerp         (*Perl_Isighandlerp_ptr(aTHX))
+#undef  PL_signals
+#define PL_signals             (*Perl_Isignals_ptr(aTHX))
 #undef  PL_sort_RealCmp
 #define PL_sort_RealCmp                (*Perl_Isort_RealCmp_ptr(aTHX))
 #undef  PL_splitstr
@@ -542,6 +546,8 @@ END_EXTERN_C
 #define PL_tokenbuf            (*Perl_Itokenbuf_ptr(aTHX))
 #undef  PL_uid
 #define PL_uid                 (*Perl_Iuid_ptr(aTHX))
+#undef  PL_unicode
+#define PL_unicode             (*Perl_Iunicode_ptr(aTHX))
 #undef  PL_unsafe
 #define PL_unsafe              (*Perl_Iunsafe_ptr(aTHX))
 #undef  PL_utf8_alnum
@@ -584,10 +590,10 @@ END_EXTERN_C
 #define PL_utf8_upper          (*Perl_Iutf8_upper_ptr(aTHX))
 #undef  PL_utf8_xdigit
 #define PL_utf8_xdigit         (*Perl_Iutf8_xdigit_ptr(aTHX))
+#undef  PL_utf8locale
+#define PL_utf8locale          (*Perl_Iutf8locale_ptr(aTHX))
 #undef  PL_uudmap
 #define PL_uudmap              (*Perl_Iuudmap_ptr(aTHX))
-#undef  PL_wantutf8
-#define PL_wantutf8            (*Perl_Iwantutf8_ptr(aTHX))
 #undef  PL_warnhook
 #define PL_warnhook            (*Perl_Iwarnhook_ptr(aTHX))
 #undef  PL_widesyscalls
@@ -696,8 +702,6 @@ END_EXTERN_C
 #define PL_efloatsize          (*Perl_Tefloatsize_ptr(aTHX))
 #undef  PL_errors
 #define PL_errors              (*Perl_Terrors_ptr(aTHX))
-#undef  PL_extralen
-#define PL_extralen            (*Perl_Textralen_ptr(aTHX))
 #undef  PL_firstgv
 #define PL_firstgv             (*Perl_Tfirstgv_ptr(aTHX))
 #undef  PL_formtarget
@@ -782,20 +786,10 @@ END_EXTERN_C
 #define PL_reg_starttry                (*Perl_Treg_starttry_ptr(aTHX))
 #undef  PL_reg_sv
 #define PL_reg_sv              (*Perl_Treg_sv_ptr(aTHX))
-#undef  PL_reg_whilem_seen
-#define PL_reg_whilem_seen     (*Perl_Treg_whilem_seen_ptr(aTHX))
 #undef  PL_regbol
 #define PL_regbol              (*Perl_Tregbol_ptr(aTHX))
 #undef  PL_regcc
 #define PL_regcc               (*Perl_Tregcc_ptr(aTHX))
-#undef  PL_regcode
-#define PL_regcode             (*Perl_Tregcode_ptr(aTHX))
-#undef  PL_regcomp_parse
-#define PL_regcomp_parse       (*Perl_Tregcomp_parse_ptr(aTHX))
-#undef  PL_regcomp_rx
-#define PL_regcomp_rx          (*Perl_Tregcomp_rx_ptr(aTHX))
-#undef  PL_regcompat1
-#define PL_regcompat1          (*Perl_Tregcompat1_ptr(aTHX))
 #undef  PL_regcompp
 #define PL_regcompp            (*Perl_Tregcompp_ptr(aTHX))
 #undef  PL_regdata
@@ -808,8 +802,6 @@ END_EXTERN_C
 #define PL_regeol              (*Perl_Tregeol_ptr(aTHX))
 #undef  PL_regexecp
 #define PL_regexecp            (*Perl_Tregexecp_ptr(aTHX))
-#undef  PL_regflags
-#define PL_regflags            (*Perl_Tregflags_ptr(aTHX))
 #undef  PL_regfree
 #define PL_regfree             (*Perl_Tregfree_ptr(aTHX))
 #undef  PL_regindent
@@ -828,26 +820,18 @@ END_EXTERN_C
 #define PL_reglastparen                (*Perl_Treglastparen_ptr(aTHX))
 #undef  PL_regnarrate
 #define PL_regnarrate          (*Perl_Tregnarrate_ptr(aTHX))
-#undef  PL_regnaughty
-#define PL_regnaughty          (*Perl_Tregnaughty_ptr(aTHX))
 #undef  PL_regnpar
 #define PL_regnpar             (*Perl_Tregnpar_ptr(aTHX))
 #undef  PL_regprecomp
 #define PL_regprecomp          (*Perl_Tregprecomp_ptr(aTHX))
 #undef  PL_regprogram
 #define PL_regprogram          (*Perl_Tregprogram_ptr(aTHX))
-#undef  PL_regsawback
-#define PL_regsawback          (*Perl_Tregsawback_ptr(aTHX))
-#undef  PL_regseen
-#define PL_regseen             (*Perl_Tregseen_ptr(aTHX))
 #undef  PL_regsize
 #define PL_regsize             (*Perl_Tregsize_ptr(aTHX))
 #undef  PL_regstartp
 #define PL_regstartp           (*Perl_Tregstartp_ptr(aTHX))
 #undef  PL_regtill
 #define PL_regtill             (*Perl_Tregtill_ptr(aTHX))
-#undef  PL_regxend
-#define PL_regxend             (*Perl_Tregxend_ptr(aTHX))
 #undef  PL_restartop
 #define PL_restartop           (*Perl_Trestartop_ptr(aTHX))
 #undef  PL_retstack
@@ -876,10 +860,6 @@ END_EXTERN_C
 #define PL_screamnext          (*Perl_Tscreamnext_ptr(aTHX))
 #undef  PL_secondgv
 #define PL_secondgv            (*Perl_Tsecondgv_ptr(aTHX))
-#undef  PL_seen_evals
-#define PL_seen_evals          (*Perl_Tseen_evals_ptr(aTHX))
-#undef  PL_seen_zerolen
-#define PL_seen_zerolen                (*Perl_Tseen_zerolen_ptr(aTHX))
 #undef  PL_sortcop
 #define PL_sortcop             (*Perl_Tsortcop_ptr(aTHX))
 #undef  PL_sortcxix
@@ -930,6 +910,8 @@ END_EXTERN_C
 #define PL_curinterp           (*Perl_Gcurinterp_ptr(NULL))
 #undef  PL_do_undump
 #define PL_do_undump           (*Perl_Gdo_undump_ptr(NULL))
+#undef  PL_dollarzero_mutex
+#define PL_dollarzero_mutex    (*Perl_Gdollarzero_mutex_ptr(NULL))
 #undef  PL_hexdigit
 #define PL_hexdigit            (*Perl_Ghexdigit_ptr(NULL))
 #undef  PL_lockhook