From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 1 Feb 2000 08:52:16 +0000 (+0000)
Subject: export pregexec(), Tk uses it
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a86f0dc98a98470272f57769cfd209896e37a52f;p=p5sagit%2Fp5-mst-13.2.git

export pregexec(), Tk uses it

p4raw-id: //depot/perl@4939
---

diff --git a/embed.pl b/embed.pl
index 820f7b7..0ea9aa2 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 72a59db..2f750fa 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 3e6b1ff..36d428f 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 6cf5147..4badd9f 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)