Make lc/uc/lcfirst/ucfirst warn when passed undef.

Naive implementation.

p4raw-id: //depot/perl@33088

1 files changed, 6 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index c667e22ff4..2b12a8fa80 100644
--- a/pp.c
+++ b/pp.c
@@ -3528,6 +3528,8 @@ PP(pp_ucfirst)
     if (SvOK(source)) {
 	s = (const U8*)SvPV_nomg_const(source, slen);
     } else {
+	if (ckWARN(WARN_UNINITIALIZED))
+	    report_uninit(source);
 	s = (const U8*)"";
 	slen = 0;
     }
@@ -3652,6 +3654,8 @@ PP(pp_uc)
 	if (SvOK(source)) {
 	    s = (const U8*)SvPV_nomg_const(source, len);
 	} else {
+	    if (ckWARN(WARN_UNINITIALIZED))
+		report_uninit(source);
 	    s = (const U8*)"";
 	    len = 0;
 	}
@@ -3752,6 +3756,8 @@ PP(pp_lc)
 	if (SvOK(source)) {
 	    s = (const U8*)SvPV_nomg_const(source, len);
 	} else {
+	    if (ckWARN(WARN_UNINITIALIZED))
+		report_uninit(source);
 	    s = (const U8*)"";
 	    len = 0;
 	}