diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-29 10:47:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-29 10:47:30 +0000 |
| commit | 316ad4fe4f1e1e3b0bcefe5896050dafc25b7449 (patch) | |
| tree | 061a1f9b5576e2c7b874b006ba03d55db60f51dd /mg.c | |
| parent | dc1e3f56d0bad5c480743c8d8317cab04a0b12ce (diff) | |
| download | perl-316ad4fe4f1e1e3b0bcefe5896050dafc25b7449.tar.gz | |
Fix a typo in #4036.
p4raw-id: //depot/cfgperl@4041
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -93,7 +93,7 @@ Perl_mg_get(pTHX_ SV *sv) while ((mg = *mgp) != 0) { MGVTBL* vtbl = mg->mg_virtual; if (!(mg->mg_flags & MGf_GSKIP) && vtbl && (vtbl->svt_get != NULL)) { - CALL_FTPR(vtbl->svt_get)(aTHX_ sv, mg); + CALL_FPTR(vtbl->svt_get)(aTHX_ sv, mg); /* Ignore this magic if it's been deleted */ if ((mg == (mgp_valid ? *mgp : SvMAGIC(sv))) && (mg->mg_flags & MGf_GSKIP)) |