diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-11-27 19:33:17 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 19:28:00 +0000 |
| commit | 5c5e4c245abefef949ee72dd179eff31d923dcb2 (patch) | |
| tree | 9c6302c8f1b182fc3bed8cfc03f53acc8011406f /mg.c | |
| parent | 364723c2ea2c2681016fad994c4f40cc3a0bb17d (diff) | |
| download | perl-5c5e4c245abefef949ee72dd179eff31d923dcb2.tar.gz | |
Finishing off SNOBOL: $1 in (?{})
Message-Id: <199811280533.AAA25654@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@2372
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -350,9 +350,9 @@ magic_regdatum_get(SV *sv, MAGIC *mg) (t = rx->endp[paren])) { if (mg->mg_obj) /* @+ */ - i = t - rx->subbase; + i = t - rx->subbeg; else /* @- */ - i = s - rx->subbase; + i = s - rx->subbeg; sv_setiv(sv,i); } } |