From faf82a0b75a45f1e4dbb7ad8cecdfaf9a30a643d Mon Sep 17 00:00:00 2001
From: "Adrian M. Enache" <enache@rdslink.ro>
Date: Sun, 23 Feb 2003 22:16:39 +0200
Subject: Re: [perl #20683] [fix] Better Patch Message-ID:
 <20030223181639.GA18713@ratsnest.hole>

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

(limited to 'mg.c')

diff --git a/mg.c b/mg.c
index 58a5cd5460..c0f6c16590 100644
--- a/mg.c
+++ b/mg.c
@@ -1817,6 +1817,13 @@ Perl_magic_setuvar(pTHX_ SV *sv, MAGIC *mg)
     return 0;
 }
 
+int
+Perl_magic_setregexp(pTHX_ SV *sv, MAGIC *mg)
+{
+    sv_unmagic(sv, PERL_MAGIC_qr);
+    return 0;
+}
+
 int
 Perl_magic_freeregexp(pTHX_ SV *sv, MAGIC *mg)
 {
-- 
cgit v1.2.1