mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2024-12-14 10:09:48 +00:00
Code Issues Releases Activity

Fix bug with internal functions when locale is active

Browse Source 
PR:		15370
Reviewed by:	no responce from maintainer
Obtained from:	perl development sources
This commit is contained in:
Andrey A. Chernov 1999-12-13 19:11:53 +00:00
parent 9acc846078
commit 6d98baad02
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=54570
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
contrib/perl5/pp.c
View File

@ -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;
}