From da78da6e52d0b37ee30b642783a0d9e91d0b3cd0 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Mon, 4 Jul 2005 09:17:06 +0000 Subject: [PATCH] Fix change 25045 p4raw-id: //depot/perl@25062 --- mg.c | 1 + 1 file changed, 1 insertion(+) 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); -- 2.7.4