This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make script run code a separate function
[perl5.git] / embed.fnc
index 25cad01..beb52e8 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -895,6 +895,8 @@ 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
 : Used in perly.y
 p      |OP*    |jmaybe         |NN OP *o
 : Used in pp.c