Test both the scalar and list contexts.

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

diff --git a/embed.h b/embed.h
index b597558..d372b20 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -9,6 +9,9 @@
 
 /* provide binary compatible (but inconsistent) names */
 #if defined(PERL_BINCOMPAT_5005)
+#  define  Perl_call_atexit            perl_atexit
+#  define  Perl_eval_sv                        perl_eval_sv
+#  define  Perl_eval_pv                        perl_eval_pv
 #  define  Perl_call_argv              perl_call_argv
 #  define  Perl_call_method            perl_call_method
 #  define  Perl_call_pv                        perl_call_pv
@@ -300,6 +303,7 @@
 #define to_uni_upper_lc                Perl_to_uni_upper_lc
 #define to_uni_title_lc                Perl_to_uni_title_lc
 #define to_uni_lower_lc                Perl_to_uni_lower_lc
+#define is_utf8_char           Perl_is_utf8_char
 #define is_utf8_alnum          Perl_is_utf8_alnum
 #define is_utf8_alnumc         Perl_is_utf8_alnumc
 #define is_utf8_idfirst                Perl_is_utf8_idfirst
@@ -467,6 +471,7 @@
 #define newSVREF               Perl_newSVREF
 #define newSVOP                        Perl_newSVOP
 #define newSViv                        Perl_newSViv
+#define newSVuv                        Perl_newSVuv
 #define newSVnv                        Perl_newSVnv
 #define newSVpv                        Perl_newSVpv
 #define newSVpvn               Perl_newSVpvn
@@ -1129,6 +1134,7 @@
 #define ck_eval                        Perl_ck_eval
 #define ck_exec                        Perl_ck_exec
 #define ck_exists              Perl_ck_exists
+#define ck_exit                        Perl_ck_exit
 #define ck_ftst                        Perl_ck_ftst
 #define ck_fun                 Perl_ck_fun
 #define ck_fun_locale          Perl_ck_fun_locale
@@ -1744,6 +1750,7 @@
 #define to_uni_upper_lc(a)     Perl_to_uni_upper_lc(aTHX_ a)
 #define to_uni_title_lc(a)     Perl_to_uni_title_lc(aTHX_ a)
 #define to_uni_lower_lc(a)     Perl_to_uni_lower_lc(aTHX_ a)
+#define is_utf8_char(a)                Perl_is_utf8_char(aTHX_ a)
 #define is_utf8_alnum(a)       Perl_is_utf8_alnum(aTHX_ a)
 #define is_utf8_alnumc(a)      Perl_is_utf8_alnumc(aTHX_ a)
 #define is_utf8_idfirst(a)     Perl_is_utf8_idfirst(aTHX_ a)
@@ -1909,6 +1916,7 @@
 #define newSVREF(a)            Perl_newSVREF(aTHX_ a)
 #define newSVOP(a,b,c)         Perl_newSVOP(aTHX_ a,b,c)
 #define newSViv(a)             Perl_newSViv(aTHX_ a)
+#define newSVuv(a)             Perl_newSVuv(aTHX_ a)
 #define newSVnv(a)             Perl_newSVnv(aTHX_ a)
 #define newSVpv(a,b)           Perl_newSVpv(aTHX_ a,b)
 #define newSVpvn(a,b)          Perl_newSVpvn(aTHX_ a,b)
@@ -2561,6 +2569,7 @@
 #define ck_eval(a)             Perl_ck_eval(aTHX_ a)
 #define ck_exec(a)             Perl_ck_exec(aTHX_ a)
 #define ck_exists(a)           Perl_ck_exists(aTHX_ a)
+#define ck_exit(a)             Perl_ck_exit(aTHX_ a)
 #define ck_ftst(a)             Perl_ck_ftst(aTHX_ a)
 #define ck_fun(a)              Perl_ck_fun(aTHX_ a)
 #define ck_fun_locale(a)       Perl_ck_fun_locale(aTHX_ a)
@@ -3420,6 +3429,8 @@
 #define to_uni_title_lc                Perl_to_uni_title_lc
 #define Perl_to_uni_lower_lc   CPerlObj::Perl_to_uni_lower_lc
 #define to_uni_lower_lc                Perl_to_uni_lower_lc
+#define Perl_is_utf8_char      CPerlObj::Perl_is_utf8_char
+#define is_utf8_char           Perl_is_utf8_char
 #define Perl_is_utf8_alnum     CPerlObj::Perl_is_utf8_alnum
 #define is_utf8_alnum          Perl_is_utf8_alnum
 #define Perl_is_utf8_alnumc    CPerlObj::Perl_is_utf8_alnumc
@@ -3736,6 +3747,8 @@
 #define newSVOP                        Perl_newSVOP
 #define Perl_newSViv           CPerlObj::Perl_newSViv
 #define newSViv                        Perl_newSViv
+#define Perl_newSVuv           CPerlObj::Perl_newSVuv
+#define newSVuv                        Perl_newSVuv
 #define Perl_newSVnv           CPerlObj::Perl_newSVnv
 #define newSVnv                        Perl_newSVnv
 #define Perl_newSVpv           CPerlObj::Perl_newSVpv
@@ -4971,6 +4984,8 @@
 #define ck_exec                        Perl_ck_exec
 #define Perl_ck_exists         CPerlObj::Perl_ck_exists
 #define ck_exists              Perl_ck_exists
+#define Perl_ck_exit           CPerlObj::Perl_ck_exit
+#define ck_exit                        Perl_ck_exit
 #define Perl_ck_ftst           CPerlObj::Perl_ck_ftst
 #define ck_ftst                        Perl_ck_ftst
 #define Perl_ck_fun            CPerlObj::Perl_ck_fun