summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorSteve Hay <SteveHay@planit.com>2005-07-04 09:17:06 +0000
committerSteve Hay <SteveHay@planit.com>2005-07-04 09:17:06 +0000
commitda78da6e52d0b37ee30b642783a0d9e91d0b3cd0 (patch)
tree51dd215c1764731c28239984edc140f909126170 /mg.c
parent0145e915fd2f602735e2acc3d23416dd0d88bdf8 (diff)
downloadperl-da78da6e52d0b37ee30b642783a0d9e91d0b3cd0.tar.gz
Fix change 25045
p4raw-id: //depot/perl@25062
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/mg.c b/mg.c
index 6d820705ff..086ab9ab1b 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);