From a86f0dc98a98470272f57769cfd209896e37a52f Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 1 Feb 2000 08:52:16 +0000
Subject: export pregexec(), Tk uses it

p4raw-id: //depot/perl@4939
---
 perlapi.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perlapi.c')

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)
-- 
cgit v1.2.1