summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>1998-06-08 18:16:56 -0400
committerGurusamy Sarathy <gsar@cpan.org>1998-06-10 07:21:21 +0000
commite2d46a1de163ba101bb4392a8fa6d97ca3c9a323 (patch)
tree9dc1bbb410301b64987309b0fbfdd19c0687fc62 /mg.c
parent49136ef87c7a099210ef3e193f1a24f3def277ff (diff)
downloadperl-e2d46a1de163ba101bb4392a8fa6d97ca3c9a323.tar.gz
Applied patch, followed by tweaks to *.sym and `perl embed.pl`
Message-Id: <199806090216.WAA02041@monk.mps.ohio-state.edu> Subject: [PATCH 5.004_66] Resend of RE cache patch (modified) p4raw-id: //depot/perl@1105
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/mg.c b/mg.c
index d6ea1d2c58..b981c12fae 100644
--- a/mg.c
+++ b/mg.c
@@ -1511,6 +1511,13 @@ magic_freeregexp(SV *sv, MAGIC *mg)
return 0;
}
+int
+magic_unchain(SV *sv, MAGIC *mg)
+{
+ sv_unmagic(sv, mg->mg_type);
+ return 0;
+}
+
#ifdef USE_LOCALE_COLLATE
int
magic_setcollxfrm(SV *sv, MAGIC *mg)