The core shouldn't be using PL_na

p4raw-id: //depot/perl@25024

diff --git a/perl.c b/perl.c
index 89d32a8..5b3b777 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2934,7 +2934,7 @@ Perl_moreswitches(pTHX_ char *s)
                sv_catpv(sv, "})");
            }
            s += strlen(s);
-           my_setenv("PERL5DB", SvPV(sv, PL_na));
+           my_setenv("PERL5DB", SvPV_nolen_const(sv));
        }
        if (!PL_perldb) {
            PL_perldb = PERLDB_ALL;