fix parsing of here documents in C<eval 's/.../<<FOO/e'>

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

diff --git a/embed.pl b/embed.pl
index f309c3b..89e1506 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -9,6 +9,7 @@ require 5.003;
 my @extvars = qw(sv_undef sv_yes sv_no na dowarn
                  curcop compiling 
                  tainting tainted stack_base stack_sp sv_arenaroot
+                no_modify
                  curstash DBsub DBsingle debstash
                  rsfp 
                  stdingv
@@ -255,6 +256,10 @@ my @staticfuncs = qw(
     dopoptosub_at
     save_lines
     doeval
+    sv_ncmp
+    sv_i_ncmp
+    amagic_ncmp
+    amagic_i_ncmp
     amagic_cmp
     amagic_cmp_locale
     mul128
@@ -350,6 +355,8 @@ my @staticfuncs = qw(
     study_chunk
     add_data
     re_croak2
+    regpposixcc
+    clear_re
     regmatch
     regrepeat
     regrepeat_hard
@@ -360,6 +367,7 @@ my @staticfuncs = qw(
     regcppop
     regcp_set_to
     cache_re
+    restore_pos
     reghop
     reghopmaybe
     dump
@@ -367,6 +375,8 @@ my @staticfuncs = qw(
     debprof
     bset_obj_store
     new_logop
+    simplify_sort
+    is_handle_constructor
     do_trans_CC_simple
     do_trans_CC_count
     do_trans_CC_complex
@@ -395,6 +405,11 @@ print EM <<'END';
 
 #endif /* PERL_OBJECT */
 
+/* compatibility stubs */
+
+#define sv_setptrobj(rv,ptr,name)      sv_setref_iv(rv,name,(IV)ptr)
+#define sv_setptrref(rv,ptr)           sv_setref_iv(rv,Nullch,(IV)ptr)
+
 END
 
 close(EM);
@@ -531,7 +546,7 @@ END
 
 print EM <<'END';
 
-#ifdef PERL_POLLUTE            /* unsupported in 5.006 */
+#ifdef PERL_POLLUTE            /* disabled by default in 5.006 */
 
 END
 
@@ -541,7 +556,7 @@ for $sym (sort @extvars) {
 
 print EM <<'END';
 
-#endif /* MIN_PERL_DEFINE */
+#endif /* PERL_POLLUTE */
 END