X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2Fre%2Fre_top.h;h=6eb02e33684875f018462a01ea6952920015c6fe;hb=e9d185f8391f09209c11be82e97358d853f1ba30;hp=59646721dac3ced067df99be97b758561ecf824a;hpb=54df26348193c7b5acc024fd6db17e462578f17c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/re/re_top.h b/ext/re/re_top.h
index 5964672..6eb02e3 100644
--- a/ext/re/re_top.h
+++ b/ext/re/re_top.h
@@ -8,13 +8,26 @@
 #endif
 
 /* We *really* need to overwrite these symbols: */
-#define Perl_regexec_flags my_regexec
-#define Perl_regdump my_regdump
-#define Perl_regprop my_regprop
-#define Perl_re_intuit_start my_re_intuit_start
-#define Perl_pregcomp my_regcomp
-#define Perl_pregfree my_regfree
-#define Perl_re_intuit_string my_re_intuit_string
+#define Perl_regexec_flags      my_regexec
+#define Perl_regdump            my_regdump
+#define Perl_regprop            my_regprop
+#define Perl_re_intuit_start    my_re_intuit_start
+#define Perl_re_compile         my_re_compile
+#define Perl_regfree_internal   my_regfree
+#define Perl_re_intuit_string   my_re_intuit_string
+#define Perl_regdupe_internal   my_regdupe
+#define Perl_reg_numbered_buff_fetch  my_reg_numbered_buff_fetch
+#define Perl_reg_numbered_buff_store  my_reg_numbered_buff_store
+#define Perl_reg_numbered_buff_length  my_reg_numbered_buff_length
+#define Perl_reg_named_buff      my_reg_named_buff
+#define Perl_reg_named_buff_iter my_reg_named_buff_iter
+#define Perl_reg_named_buff_fetch    my_reg_named_buff_fetch    
+#define Perl_reg_named_buff_exists   my_reg_named_buff_exists  
+#define Perl_reg_named_buff_firstkey my_reg_named_buff_firstkey
+#define Perl_reg_named_buff_nextkey  my_reg_named_buff_nextkey 
+#define Perl_reg_named_buff_scalar   my_reg_named_buff_scalar  
+#define Perl_reg_named_buff_all      my_reg_named_buff_all     
+#define Perl_reg_qr_package        my_reg_qr_package
 
 #define PERL_NO_GET_CONTEXT