diff options
| author | Andy Lester <andy@petdance.com> | 2005-09-12 20:08:36 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-09-13 06:18:46 +0000 |
| commit | bfce84ec9fb7d74c41a80b7823d3e3c5a1e43f7a (patch) | |
| tree | f761266cc0d97f67f70727d48783fb411b9e5c25 /pp_pack.c | |
| parent | 6329a6bc37759bdf7db227ba0bff23484e9d8b01 (diff) | |
| download | perl-bfce84ec9fb7d74c41a80b7823d3e3c5a1e43f7a.tar.gz | |
The return of the consting
Message-ID: <20050913060835.GA1037@petdance.com>
p4raw-id: //depot/perl@25397
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -2390,8 +2390,8 @@ S_div128(pTHX_ SV *pnum, bool *done) The engine implementing pack() Perl function. Note: parameters next_in_list and flags are not used. This call should not be used; use packlist instead. -=cut */ - +=cut +*/ void Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, register SV **beglist, SV **endlist, SV ***next_in_list, U32 flags) @@ -2411,8 +2411,8 @@ Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, register SV ** The engine implementing pack() Perl function. -=cut */ - +=cut +*/ void Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, register SV **beglist, SV **endlist ) @@ -2425,7 +2425,8 @@ Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, register SV ** /* We're going to do changes through SvPVX(cat). Make sure it's valid. Also make sure any UTF8 flag is loaded */ SvPV_force(cat, no_len); - if (DO_UTF8(cat)) sym.flags |= FLAG_PARSE_UTF8 | FLAG_DO_UTF8; + if (DO_UTF8(cat)) + sym.flags |= FLAG_PARSE_UTF8 | FLAG_DO_UTF8; (void)pack_rec( cat, &sym, beglist, endlist ); } |