From: Steve Hay <SteveHay@planit.com>
Date: Mon, 4 Jul 2005 09:17:06 +0000 (+0000)
Subject: Fix change 25045
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da78da6e52d0b37ee30b642783a0d9e91d0b3cd0;p=p5sagit%2Fp5-mst-13.2.git

Fix change 25045

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

diff --git a/mg.c b/mg.c
index 6d82070..086ab9a 100644
--- a/mg.c
+++ b/mg.c
@@ -2217,6 +2217,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
     case '\011':	/* ^I */ /* NOT \t in EBCDIC */
 	Safefree(PL_inplace);
 	PL_inplace = SvOK(sv) ? savesvpv(sv) : Nullch;
+	break;
     case '\017':	/* ^O */
 	if (*(mg->mg_ptr+1) == '\0') {
 	    Safefree(PL_osname);