diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2017-08-27 21:48:42 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2017-08-28 12:27:05 -0700 |
| commit | 5783dc5192c36d5487bd5408fd7138e9ea36d70c (patch) | |
| tree | d56cb5db52cffcabbfc3f2f5fb3a335d364046e7 /ext | |
| parent | bc63756f96fd2f5f6bc046ab634053b983799876 (diff) | |
| download | perl-5783dc5192c36d5487bd5408fd7138e9ea36d70c.tar.gz | |
Add another param to validate_proto
I need this in order to fix bug #131883. Since it has a bit of
churn, I’m putting it in a separate commit.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/attributes/attributes.pm | 2 | ||||
| -rw-r--r-- | ext/attributes/attributes.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/attributes/attributes.pm b/ext/attributes/attributes.pm index 3a3a43ea5b..82e970ad6e 100644 --- a/ext/attributes/attributes.pm +++ b/ext/attributes/attributes.pm @@ -1,6 +1,6 @@ package attributes; -our $VERSION = 0.30; +our $VERSION = 0.31; @EXPORT_OK = qw(get reftype); @EXPORT = (); diff --git a/ext/attributes/attributes.xs b/ext/attributes/attributes.xs index 287ac347d9..605749a010 100644 --- a/ext/attributes/attributes.xs +++ b/ext/attributes/attributes.xs @@ -96,7 +96,7 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) else subname=(SV *)CvGV((const CV *)sv); if (ckWARN(WARN_ILLEGALPROTO)) - Perl_validate_proto(aTHX_ subname, proto, TRUE); + Perl_validate_proto(aTHX_ subname, proto, TRUE, 0); Perl_cv_ckproto_len_flags(aTHX_ (const CV *)sv, (const GV *)subname, name+10, |