Fix bug with internal functions when locale is active

PR:		15370
Reviewed by:	no responce from maintainer
Obtained from:	perl development sources

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