diff options
| author | Robin Houston <robin@cpan.org> | 2001-05-08 20:38:00 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-08 22:41:49 +0000 |
| commit | a1063b2d347f61fd47f71876da72ed835b315f8a (patch) | |
| tree | 5acfac5f57302e9b42647499cf4ec310f57e8419 /op.c | |
| parent | 41f3e7ef1e9972c4d0bb1ddef78e045c6a2b4d74 (diff) | |
| download | perl-a1063b2d347f61fd47f71876da72ed835b315f8a.tar.gz | |
[PATCH op.c] Deprecate %x->{'foo'}, @y->[23] etc
Date: Tue, 8 May 2001 19:38:00 +0100
Message-ID: <20010508193800.A4389@penderel>
Subject: Re: [PATCH op.c] Deprecate %x->{'foo'}, @y->[23] etc
From: Robin Houston <robin@kitsite.com>
Date: Tue, 8 May 2001 20:03:57 +0100
Message-ID: <20010508200357.A4614@penderel>
Subject: Re: [PATCH op.c] Deprecate %x->{'foo'}, @y->[23] etc
From: Robin Houston <robin@kitsite.com>
Date: Wed, 9 May 2001 00:12:05 +0100
Message-ID: <20010509001205.A18521@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@10043
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -5210,6 +5210,11 @@ Perl_newAVREF(pTHX_ OP *o) o->op_ppaddr = PL_ppaddr[OP_PADAV]; return o; } + else if ((o->op_type == OP_RV2AV || o->op_type == OP_PADAV) + && ckWARN(WARN_DEPRECATED)) { + Perl_warner(aTHX_ WARN_DEPRECATED, + "Using an array as a reference is deprecated"); + } return newUNOP(OP_RV2AV, 0, scalar(o)); } @@ -5229,6 +5234,11 @@ Perl_newHVREF(pTHX_ OP *o) o->op_ppaddr = PL_ppaddr[OP_PADHV]; return o; } + else if ((o->op_type == OP_RV2HV || o->op_type == OP_PADHV) + && ckWARN(WARN_DEPRECATED)) { + Perl_warner(aTHX_ WARN_DEPRECATED, + "Using a hash as a reference is deprecated"); + } return newUNOP(OP_RV2HV, 0, scalar(o)); } |