diff options
| author | TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com> | 2022-10-05 23:04:17 +0900 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-10-13 10:27:43 -0600 |
| commit | 78b0aa4aa590b95ef8e01b850c0d643510923b24 (patch) | |
| tree | c908d6f075eb00602b7ea35f8ec3a36fbeb310d7 /toke.c | |
| parent | 1932805f63d6181a90fe36fabbdc3755a78b072f (diff) | |
| download | perl-78b0aa4aa590b95ef8e01b850c0d643510923b24.tar.gz | |
toke.c: Use `line_t` (rather than `I32`) to hold the value of `CopLINE()`
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -10096,7 +10096,7 @@ S_scan_ident(pTHX_ char *s, char *dest, STRLEN destlen, I32 ck_uni) char *d = dest; char * const e = d + destlen - 3; /* two-character token, ending NUL */ bool is_utf8 = cBOOL(UTF); - I32 orig_copline = 0, tmp_copline = 0; + line_t orig_copline = 0, tmp_copline = 0; PERL_ARGS_ASSERT_SCAN_IDENT; |