diff options
author | ache <ache@FreeBSD.org> | 1999-12-13 19:11:53 +0000 |
---|---|---|
committer | ache <ache@FreeBSD.org> | 1999-12-13 19:11:53 +0000 |
commit | d49556544e539736c3642ba27816e61694a831f4 (patch) | |
tree | 6f45c1c7052a4d328110623d2ba1e4a214e5cba9 /contrib | |
parent | 0a9c0373046ed92cf5000ae6d00017482c9a4580 (diff) | |
download | FreeBSD-src-d49556544e539736c3642ba27816e61694a831f4.zip FreeBSD-src-d49556544e539736c3642ba27816e61694a831f4.tar.gz |
Fix bug with internal functions when locale is active
PR: 15370
Reviewed by: no responce from maintainer
Obtained from: perl development sources
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/perl5/pp.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/contrib/perl5/pp.c b/contrib/perl5/pp.c index 1f62886..1d4dbcc 100644 --- a/contrib/perl5/pp.c +++ b/contrib/perl5/pp.c @@ -5,6 +5,7 @@ * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. * + * $FreeBSD$ */ /* @@ -2178,7 +2179,8 @@ PP(pp_ucfirst) else *s = toUPPER(*s); } - + if (SvSMAGICAL(sv)) + mg_set(sv); RETURN; } @@ -2207,6 +2209,8 @@ PP(pp_lcfirst) } SETs(sv); + if (SvSMAGICAL(sv)) + mg_set(sv); RETURN; } @@ -2239,6 +2243,8 @@ PP(pp_uc) *s = toUPPER(*s); } } + if (SvSMAGICAL(sv)) + mg_set(sv); RETURN; } @@ -2271,6 +2277,8 @@ PP(pp_lc) *s = toLOWER(*s); } } + if (SvSMAGICAL(sv)) + mg_set(sv); RETURN; } @@ -2298,6 +2306,8 @@ PP(pp_quotemeta) else sv_setpvn(TARG, s, len); SETs(TARG); + if (SvSMAGICAL(TARG)) + mg_set(TARG); RETURN; } |