Integrate:

[ 23063]
Make Perl_sv_utf8_upgrade_flags tolerate PL_sv_undef
as an argument.
p4raw-link: @23063 on //depot/perl: 808c356fac3636c92b02c9645ce5534d6ad58b38

p4raw-id: //depot/maint-5.8/perl@23064
p4raw-integrated: from //depot/perl@23057 'merge in' sv.c (@23018..)

1 files changed, 2 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 48602611fa..806a838329 100644
--- a/sv.c
+++ b/sv.c
@@ -3447,6 +3447,8 @@ Perl_sv_utf8_upgrade_flags(pTHX_ register SV *sv, I32 flags)
     U8 *s, *t, *e;
     int  hibit = 0;
 
+    if (sv == &PL_sv_undef)
+	return 0;
     if (!SvPOK(sv)) {
 	STRLEN len = 0;
 	(void) SvPV_force(sv,len);