1 files changed, 3 insertions, 3 deletions
diff --git a/pp.c b/pp.c
index 830d5fb60c..51af7d8c41 100644
--- a/pp.c
+++ b/pp.c
@@ -3522,7 +3522,7 @@ PP(pp_ucfirst)
 	need = slen + 1;
     }
 
-    if (SvPADTMP(source) && !SvREADONLY(source) && inplace) {
+    if (SvPADTMP(source) && !SvREADONLY(source) && inplace && SvTEMP(source)) {
 	/* We can convert in place.  */
 
 	dest = source;
@@ -3605,7 +3605,7 @@ PP(pp_uc)
     SvGETMAGIC(source);
 
     if (SvPADTMP(source) && !SvREADONLY(source) && !SvAMAGIC(source)
-	&& !DO_UTF8(source)) {
+	&& SvTEMP(source) && !DO_UTF8(source)) {
 	/* We can convert in place.  */
 
 	dest = source;
@@ -3705,7 +3705,7 @@ PP(pp_lc)
     SvGETMAGIC(source);
 
     if (SvPADTMP(source) && !SvREADONLY(source) && !SvAMAGIC(source)
-	&& !DO_UTF8(source)) {
+	&& SvTEMP(source) && !DO_UTF8(source)) {
 	/* We can convert in place.  */
 
 	dest = source;