diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-21 19:00:35 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 02:42:23 +0000 |
| commit | 6cef1e77274f883a8b06f0546efeff6e6b8660d8 (patch) | |
| tree | bf4b9e2bacfaee26c6b088c262fa38ed4b56dc8d /av.c | |
| parent | aca2d49724bd7cda96bf319bce3078fc016f28f9 (diff) | |
| download | perl-6cef1e77274f883a8b06f0546efeff6e6b8660d8.tar.gz | |
support match indices via special variables @- and @+
Message-Id: <199807220300.XAA16081@monk.mps.ohio-state.edu>
Subject: [PATCH 5.004_76] @- and @+
p4raw-id: //depot/perl@1800
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -162,7 +162,7 @@ av_fetch(register AV *av, I32 key, I32 lval) } if (SvRMAGICAL(av)) { - if (mg_find((SV*)av,'P')) { + if (mg_find((SV*)av,'P') || mg_find((SV*)av,'D')) { dTHR; sv = sv_newmortal(); mg_copy((SV*)av, sv, 0, key); |