diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-01-04 11:36:25 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-01-06 16:14:14 +0100 |
| commit | 410c1a5e7498757c39d2940d00926fe55b54a3b6 (patch) | |
| tree | c6a7e29ab15c5802ca57f025ab268531d5695aec /op.c | |
| parent | 27a7e72b1a90477d91cc29749006be0d6ce6b9cb (diff) | |
| download | perl-smoke-me/deprecate-any-defined-array.tar.gz | |
defined(@array) now also warns for package variables.smoke-me/deprecate-any-defined-array
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -8215,11 +8215,6 @@ Perl_ck_defined(pTHX_ OP *o) /* 19990527 MJD */ if ((o->op_flags & OPf_KIDS)) { switch (cUNOPo->op_first->op_type) { case OP_RV2AV: - /* This is needed for - if (defined %stash::) - to work. Do not break Tk. - */ - break; /* Globals via GV can be undef */ case OP_PADAV: case OP_AASSIGN: /* Is this a good idea? */ Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED), |