A bug introduced in #8217 (the undefined variable in the

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

diff --git a/embed.h b/embed.h
index 81af43e..4c7c531 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -182,6 +182,7 @@
 #define do_kv                  Perl_do_kv
 #define do_open                        Perl_do_open
 #define do_open9               Perl_do_open9
+#define do_openn               Perl_do_openn
 #define do_pipe                        Perl_do_pipe
 #define do_print               Perl_do_print
 #define do_readline            Perl_do_readline
@@ -518,6 +519,7 @@
 #define call_method            Perl_call_method
 #define call_pv                        Perl_call_pv
 #define call_sv                        Perl_call_sv
+#define despatch_signals       Perl_despatch_signals
 #define eval_pv                        Perl_eval_pv
 #define eval_sv                        Perl_eval_sv
 #define get_sv                 Perl_get_sv
@@ -1096,6 +1098,7 @@
 #define sv_2inuv_non_preserve  S_sv_2inuv_non_preserve
 #define sv_2iuv_non_preserve   S_sv_2iuv_non_preserve
 #  endif
+#define expect_number          S_expect_number
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni              S_check_uni
@@ -1663,6 +1666,7 @@
 #define do_kv()                        Perl_do_kv(aTHX)
 #define do_open(a,b,c,d,e,f,g) Perl_do_open(aTHX_ a,b,c,d,e,f,g)
 #define do_open9(a,b,c,d,e,f,g,h,i)    Perl_do_open9(aTHX_ a,b,c,d,e,f,g,h,i)
+#define do_openn(a,b,c,d,e,f,g,h,i)    Perl_do_openn(aTHX_ a,b,c,d,e,f,g,h,i)
 #define do_pipe(a,b,c)         Perl_do_pipe(aTHX_ a,b,c)
 #define do_print(a,b)          Perl_do_print(aTHX_ a,b)
 #define do_readline()          Perl_do_readline(aTHX)
@@ -1995,6 +1999,7 @@
 #define call_method(a,b)       Perl_call_method(aTHX_ a,b)
 #define call_pv(a,b)           Perl_call_pv(aTHX_ a,b)
 #define call_sv(a,b)           Perl_call_sv(aTHX_ a,b)
+#define despatch_signals()     Perl_despatch_signals(aTHX)
 #define eval_pv(a,b)           Perl_eval_pv(aTHX_ a,b)
 #define eval_sv(a,b)           Perl_eval_sv(aTHX_ a,b)
 #define get_sv(a,b)            Perl_get_sv(aTHX_ a,b)
@@ -2564,6 +2569,7 @@
 #define sv_2inuv_non_preserve(a,b)     S_sv_2inuv_non_preserve(aTHX_ a,b)
 #define sv_2iuv_non_preserve(a,b)      S_sv_2iuv_non_preserve(aTHX_ a,b)
 #  endif
+#define expect_number(a)       S_expect_number(aTHX_ a)
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni()            S_check_uni(aTHX)
@@ -3259,6 +3265,8 @@
 #define do_open                        Perl_do_open
 #define Perl_do_open9          CPerlObj::Perl_do_open9
 #define do_open9               Perl_do_open9
+#define Perl_do_openn          CPerlObj::Perl_do_openn
+#define do_openn               Perl_do_openn
 #define Perl_do_pipe           CPerlObj::Perl_do_pipe
 #define do_pipe                        Perl_do_pipe
 #define Perl_do_print          CPerlObj::Perl_do_print
@@ -3910,6 +3918,8 @@
 #define call_pv                        Perl_call_pv
 #define Perl_call_sv           CPerlObj::Perl_call_sv
 #define call_sv                        Perl_call_sv
+#define Perl_despatch_signals  CPerlObj::Perl_despatch_signals
+#define despatch_signals       Perl_despatch_signals
 #define Perl_eval_pv           CPerlObj::Perl_eval_pv
 #define eval_pv                        Perl_eval_pv
 #define Perl_eval_sv           CPerlObj::Perl_eval_sv
@@ -4987,6 +4997,8 @@
 #define S_sv_2iuv_non_preserve CPerlObj::S_sv_2iuv_non_preserve
 #define sv_2iuv_non_preserve   S_sv_2iuv_non_preserve
 #  endif
+#define S_expect_number                CPerlObj::S_expect_number
+#define expect_number          S_expect_number
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define S_check_uni            CPerlObj::S_check_uni