diff options
author | Steve Hay <SteveHay@planit.com> | 2005-07-04 09:17:06 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2005-07-04 09:17:06 +0000 |
commit | da78da6e52d0b37ee30b642783a0d9e91d0b3cd0 (patch) | |
tree | 51dd215c1764731c28239984edc140f909126170 /mg.c | |
parent | 0145e915fd2f602735e2acc3d23416dd0d88bdf8 (diff) | |
download | perl-da78da6e52d0b37ee30b642783a0d9e91d0b3cd0.tar.gz |
Fix change 25045
p4raw-id: //depot/perl@25062
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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); |