From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 4 Feb 2000 16:43:49 +0000 (+0000)
Subject: avoid 'na' (spotted by Yitzchak Scott-Thoennes <sthoenna@efn.org>)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a5f3544725e2ae418d9a580320a1d4c303273681;p=p5sagit%2Fp5-mst-13.2.git

avoid 'na' (spotted by Yitzchak Scott-Thoennes <sthoenna@efn.org>)

p4raw-id: //depot/perl@4985
---

diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index 6ec0275..31e984f 100644
--- a/ext/Devel/DProf/DProf.xs
+++ b/ext/Devel/DProf/DProf.xs
@@ -539,7 +539,7 @@ XS(XS_DB_sub)
     {
 	HV *oldstash = PL_curstash;
 
-        DBG_SUB_NOTIFY("XS DBsub(%s)\n", SvPV(Sub, na));
+        DBG_SUB_NOTIFY("XS DBsub(%s)\n", SvPV_nolen(Sub));
 
 	SAVEDESTRUCTOR_X(check_depth, (void*)g_depth);
 	g_depth++;
@@ -578,7 +578,7 @@ XS(XS_DB_goto)
                 HV *oldstash = PL_curstash;
 		SV *Sub = GvSV(PL_DBsub);	/* name of current sub */
                 /* SP -= items;  added by xsubpp */
-                DBG_SUB_NOTIFY("XS DBsub(%s)\n", SvPV(Sub, na));
+                DBG_SUB_NOTIFY("XS DBsub(%s)\n", SvPV_nolen(Sub));
 
                 sv_setiv(PL_DBsingle, 0);	/* disable DB single-stepping */