diff options
| author | Karl Williamson <khw@cpan.org> | 2018-01-06 21:16:15 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-01-30 22:12:46 -0700 |
| commit | be9bef6381c02eb712115613fb1630837cefeeb5 (patch) | |
| tree | bc611b959af78f33fa43043e38bea2442e6bd83c /embed.fnc | |
| parent | fea79782ed31ac4faa71eb6193faff54b4bbe249 (diff) | |
| download | perl-be9bef6381c02eb712115613fb1630837cefeeb5.tar.gz | |
Give isSCRIPT_RUN() an extra parameter
This allows it to return the script of the run.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -896,8 +896,11 @@ ADMpR |bool |is_utf8_punct |NN const U8 *p ADMpR |bool |is_utf8_xdigit |NN const U8 *p AMpR |bool |_is_utf8_mark |NN const U8 *p ADMpR |bool |is_utf8_mark |NN const U8 *p -EXdpR |bool |isSCRIPT_RUN |NN const U8 *s|NN const U8 *send \ - |const bool utf8_target +#if defined(PERL_CORE) || defined(PERL_EXT) +EXdpR |bool |isSCRIPT_RUN |NN const U8 *s|NN const U8 *send \ + |const bool utf8_target \ + |NULLOK SCX_enum * ret_script +#endif : Used in perly.y p |OP* |jmaybe |NN OP *o : Used in pp.c |