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 /pp_pack.c | |
| 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 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1558,7 +1558,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c } } *str = '\0'; - SvCUR_set(sv, str - SvPVX(sv)); + SvCUR_set(sv, str - SvPVX_const(sv)); XPUSHs(sv); break; } @@ -1595,7 +1595,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c } } *str = '\0'; - SvCUR_set(sv, str - SvPVX(sv)); + SvCUR_set(sv, str - SvPVX_const(sv)); XPUSHs(sv); break; } @@ -2445,7 +2445,7 @@ marked_upgrade(pTHX_ SV *sv, tempsym_t *sym_ptr) { if (SvUTF8(sv)) return; - from_start = SvPVX(sv); + from_start = SvPVX_const(sv); from_end = from_start + SvCUR(sv); for (from_ptr = from_start; from_ptr < from_end; from_ptr++) if (!NATIVE_IS_INVARIANT(*from_ptr)) break; |