diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2017-08-21 14:33:14 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2017-08-21 20:17:58 -0700 |
| commit | 77b7eccc0a02a2c5b734eaeb598fbdf30d00cb5e (patch) | |
| tree | ad5cc11ff98bb2c83f52402e1153761126d724da /t | |
| parent | 3f673807c860bf6e752b19518730bb1ea96c297c (diff) | |
| download | perl-77b7eccc0a02a2c5b734eaeb598fbdf30d00cb5e.tar.gz | |
diag.t needs to know that yywarn implies WARN_SYNTAX
because yywarn calls yyerror with PL_in_eval containing the EVAL_WARNONLY
flag, and yyerror calls Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX),...)
when that flag is set.
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/diag.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/porting/diag.t b/t/porting/diag.t index 037e2376ab..22cde90a9c 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -305,6 +305,8 @@ sub check_file { # Sometimes the regexp will pick up too much for the category # e.g., WARN_UNINITIALIZED), PL_warn_uninit_sv ... up to the next ) $category && $category =~ s/\).*//s; + # Special-case yywarn + /yywarn/ and $category = 'syntax'; if (/win32_croak_not_implemented\(/) { $name .= " not implemented!" } |