diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-09-30 06:25:45 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:19 -0700 |
| commit | dab1c735364fcc41f4fbd1c15b5e26e8a7b07cab (patch) | |
| tree | a4681e32c95dbd9711ee77cbcbf3d0727dd84eee /embed.fnc | |
| parent | e0260a5b7a4c9245402af2910213dd35717e5bd2 (diff) | |
| download | perl-dab1c735364fcc41f4fbd1c15b5e26e8a7b07cab.tar.gz | |
toke.c, op.c, sv.c: Prototype parsing and checking are nul-and-UTF8 clean.
This means that eval "sub foo ($;\0whoops) { say @_ }" will correctly
include \0whoops in the CV's prototype (while complaining about illegal
characters), and that
use utf8;
BEGIN { $::{"foo"} = "\$\0L\351on" }
BEGIN { eval "sub foo (\$\0L\x{c3}\x{a9}on) {};"; }
will not warn about a mismatched prototype.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -272,6 +272,9 @@ p |OP * |coresub_op |NN SV *coreargssv|const int code \ : Used in sv.c p |void |cv_ckproto_len |NN const CV* cv|NULLOK const GV* gv\ |NULLOK const char* p|const STRLEN len +p |void |cv_ckproto_len_flags |NN const CV* cv|NULLOK const GV* gv\ + |NULLOK const char* p|const STRLEN len \ + |const U32 flags : Used in pp.c and pp_sys.c ApdR |SV* |gv_const_sv |NN GV* gv ApdR |SV* |cv_const_sv |NULLOK const CV *const cv |