diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-05-31 04:55:43 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2005-06-02 08:44:41 +0000 |
| commit | aa07b2f68da542daf881aa4d73a68f7bc8c114b1 (patch) | |
| tree | 6f49d4e76f116fa1a0cd5785508a86e18b967230 /ext/Devel | |
| parent | 616d8c9c7dee8ffe0d25891708d3380cabc2db84 (diff) | |
| download | perl-aa07b2f68da542daf881aa4d73a68f7bc8c114b1.tar.gz | |
SvPVX_const() - part 3 ... and const'ing Storable
Message-Id: <20050531145543.GA8051@mccoy.peters.homeunix.org>
p4raw-id: //depot/perl@24670
Diffstat (limited to 'ext/Devel')
| -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 c840b24424..39a604d920 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -24,7 +24,7 @@ db_get_cv(pTHX_ SV *sv) cv = INT2PTR(CV*,SvIVX(sv)); } else { if (SvPOK(sv)) { - cv = get_cv(SvPVX(sv), TRUE); + cv = get_cv(SvPVX_const(sv), TRUE); } else if (SvROK(sv)) { cv = (CV*)SvRV(sv); } else { @@ -376,7 +376,7 @@ prof_mark(pTHX_ opcode ptype) gname = GvNAME(gv); set_cv_key(aTHX_ cv, pname, gname); - svp = hv_fetch(g_cv_hash, SvPVX(g_key_hash), SvCUR(g_key_hash), TRUE); + svp = hv_fetch(g_cv_hash, SvPVX_const(g_key_hash), SvCUR(g_key_hash), TRUE); if (!SvOK(*svp)) { sv_setiv(*svp, id = ++g_lastid); if (CvXSUB(cv) == XS_Devel__DProf_END) |