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 /sv.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 'sv.c')
| -rw-r--r-- | sv.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -2605,6 +2605,12 @@ sv_magic(register SV *sv, SV *obj, int how, char *name, I32 namlen) case 'B': mg->mg_virtual = &vtbl_bm; break; + case 'D': + mg->mg_virtual = &vtbl_regdata; + break; + case 'd': + mg->mg_virtual = &vtbl_regdatum; + break; case 'E': mg->mg_virtual = &vtbl_env; break; |