export pregexec(), Tk uses it

p4raw-id: //depot/perl@4939

4 files changed, 13 insertions, 1 deletions

diff --git a/embed.pl b/embed.pl
index 820f7b731b..0ea9aa2c90 100755
--- 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 72a59db2ee..2f750fa170 100644
--- 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 3e6b1ff9df..36d428f791 100644
--- 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 6cf5147c25..4badd9f7fa 100644
--- 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)