From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 30 Jun 2005 12:28:55 +0000 (+0000)
Subject: The core shouldn't be using PL_na
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=184f32ecbaf38a072f9e20a9a51f7eed11d1b589;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;