X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.c;h=b981c12fae68eff64ce85758d9d84a378b4cbb8b;hb=e91177edb0beae74fd07fb1ec08a528ab1fb63c2;hp=d6ea1d2c58e787684937b521470704e99ec5bf78;hpb=3666098248b43282bda1153dae2f4c1e4af38d09;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mg.c b/mg.c
index d6ea1d2..b981c12 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)