From bdc14a33b4456235ee9037fa8105286d0352a098 Mon Sep 17 00:00:00 2001 From: Richard Soderberg Date: Wed, 23 May 2001 22:51:52 -0700 Subject: [PATCH] Stop segfault in mg.c:636 Message-ID: p4raw-id: //depot/perl@10194 --- mg.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mg.c b/mg.c index b68a52e..0c865bc 100644 --- a/mg.c +++ b/mg.c @@ -633,7 +633,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) PL_tainted = FALSE; } sv_setpvn(sv, s, i); - if (DO_UTF8(PL_reg_sv) && is_utf8_string((U8*)s, i)) + if (PL_reg_sv && DO_UTF8(PL_reg_sv) && is_utf8_string((U8*)s, i)) SvUTF8_on(sv); else SvUTF8_off(sv); -- 2.7.4