diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-10-16 09:06:26 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-10-16 09:06:26 +0000 |
| commit | eb0d8d164d5cb9454deba917ad0f286e2bdca2ab (patch) | |
| tree | 8801808032702e2a82da3cd54ecd7be6ddc20295 /embed.fnc | |
| parent | 3088bf268afeb12cc877219dfb8affa77c98e706 (diff) | |
| download | perl-eb0d8d164d5cb9454deba917ad0f286e2bdca2ab.tar.gz | |
Pass in explicit lengths for the key and type arguments to
S_new_constant() in toke.c, as we know all the lengths already.
Brought to you by the Campaign for the Elimination of strlen().
p4raw-id: //depot/perl@32111
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -1550,8 +1550,10 @@ sR |I32 |sublex_start sR |char * |filter_gets |NN SV *sv|NN PerlIO *fp|STRLEN append sR |HV * |find_in_my_stash|NN const char *pkgname|I32 len sR |char * |tokenize_use |int is_use|NN char *s -s |SV* |new_constant |NULLOK const char *s|STRLEN len|NN const char *key|NN SV *sv \ - |NULLOK SV *pv|NULLOK const char *type +so |SV* |new_constant |NULLOK const char *s|STRLEN len \ + |NN const char *key|STRLEN keylen|NN SV *sv \ + |NULLOK SV *pv|NULLOK const char *type \ + |STRLEN typelen s |int |ao |int toketype s |const char*|incl_perldb # if defined(PERL_CR_FILTER) |