diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-03-07 03:46:37 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-03-07 04:01:12 +1200 |
| commit | d83e6520878f26ddb2592ab5b8b67eb482e51ea6 (patch) | |
| tree | e05d3759566da0d7e57fc52c34bd01393908695a /pp.c | |
| parent | f80924e7bd8c4d7568804ea1ad8e9f6ad1b28f8f (diff) | |
| download | perl-d83e6520878f26ddb2592ab5b8b67eb482e51ea6.tar.gz | |
Warn on %{+undef} and @{+undef}
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -139,6 +139,8 @@ PP(pp_rv2gv) if (op->op_flags & OPf_REF || op->op_private & HINT_STRICT_REFS) DIE(no_usym, "a symbol"); + if (dowarn) + warn(warn_uninit); RETSETUNDEF; } sym = SvPV(sv, na); @@ -181,6 +183,8 @@ PP(pp_rv2sv) if (op->op_flags & OPf_REF || op->op_private & HINT_STRICT_REFS) DIE(no_usym, "a SCALAR"); + if (dowarn) + warn(warn_uninit); RETSETUNDEF; } sym = SvPV(sv, na); |