diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-04 16:43:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-04 16:43:49 +0000 |
| commit | a5f3544725e2ae418d9a580320a1d4c303273681 (patch) | |
| tree | 6b4d7ba107afcc795a63ac52c55fd7e1bbb5dfc9 /ext/Devel/DProf | |
| parent | 911a92db602cbbd43073063264dfcb29521d196a (diff) | |
| download | perl-a5f3544725e2ae418d9a580320a1d4c303273681.tar.gz | |
avoid 'na' (spotted by Yitzchak Scott-Thoennes <sthoenna@efn.org>)
p4raw-id: //depot/perl@4985
Diffstat (limited to 'ext/Devel/DProf')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 6ec0275113..31e984f929 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 */ |