export pregexec(), Tk uses it

p4raw-id: //depot/perl@4939

diff --git a/embed.pl b/embed.pl
index 820f7b7..0ea9aa2 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -1827,7 +1827,7 @@ Ap        |void   |push_scope
 p      |OP*    |ref            |OP* o|I32 type
 p      |OP*    |refkids        |OP* o|I32 type
 Ap     |void   |regdump        |regexp* r
-p      |I32    |pregexec       |regexp* prog|char* stringarg \
+Ap     |I32    |pregexec       |regexp* prog|char* stringarg \
                                |char* strend|char* strbeg|I32 minend \
                                |SV* screamer|U32 nosave
 Ap     |void   |pregfree       |struct regexp* r

diff --git a/global.sym b/global.sym
index 72a59db..2f750fa 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -300,6 +300,7 @@ Perl_pmflag
 Perl_pop_scope
 Perl_push_scope
 Perl_regdump
+Perl_pregexec
 Perl_pregfree
 Perl_pregcomp
 Perl_re_intuit_start

diff --git a/objXSUB.h b/objXSUB.h
index 3e6b1ff..36d428f 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -1208,6 +1208,10 @@
 #define Perl_regdump           pPerl->Perl_regdump
 #undef  regdump
 #define regdump                        Perl_regdump
+#undef  Perl_pregexec
+#define Perl_pregexec          pPerl->Perl_pregexec
+#undef  pregexec
+#define pregexec               Perl_pregexec
 #undef  Perl_pregfree
 #define Perl_pregfree          pPerl->Perl_pregfree
 #undef  pregfree

diff --git a/perlapi.c b/perlapi.c
index 6cf5147..4badd9f 100644 (file)
--- a/perlapi.c
+++ b/perlapi.c
@@ -2212,6 +2212,13 @@ Perl_regdump(pTHXo_ regexp* r)
     ((CPerlObj*)pPerl)->Perl_regdump(r);
 }
 
+#undef  Perl_pregexec
+I32
+Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
+{
+    return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
+}
+
 #undef  Perl_pregfree
 void
 Perl_pregfree(pTHXo_ struct regexp* r)