diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-07 13:37:12 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-07 15:37:33 +0000 |
| commit | f8f98e0a8bdbde83a9cdc3573d818f69d0a64c78 (patch) | |
| tree | a11a9634e18216edad55a2be0986db162c4a59a8 /toke.c | |
| parent | eda4663d0f345e78f0a82529a08f3aa28c98ff2c (diff) | |
| download | perl-f8f98e0a8bdbde83a9cdc3573d818f69d0a64c78.tar.gz | |
Add length and flags arguments to Perl_pad_findmy(), moving it to the public API.
Currently no flags bits are used, and the length is cross-checked against
strlen() on the pointer, but the intent is to re-work the entire pad API to be
UTF-8 aware, from the current situation of char * pointers only.
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -7110,7 +7110,7 @@ S_pending_ident(pTHX) if (!has_colon) { if (!PL_in_my) - tmp = pad_findmy(PL_tokenbuf); + tmp = pad_findmy(PL_tokenbuf, tokenbuf_len, 0); if (tmp != NOT_IN_PAD) { /* might be an "our" variable" */ if (PAD_COMPNAME_FLAGS_isOUR(tmp)) { @@ -11618,7 +11618,7 @@ S_scan_inputsymbol(pTHX_ char *start) /* try to find it in the pad for this block, otherwise find add symbol table ops */ - const PADOFFSET tmp = pad_findmy(d); + const PADOFFSET tmp = pad_findmy(d, len, 0); if (tmp != NOT_IN_PAD) { if (PAD_COMPNAME_FLAGS_isOUR(tmp)) { HV * const stash = PAD_COMPNAME_OURSTASH(tmp); |