diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 05:15:27 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 05:15:27 +0000 |
| commit | 57b2e4523f4df782c055782388ac1aacff9603ef (patch) | |
| tree | 41cdd9052302a9bcb75c61bd1c6f02015c7237fe /mg.c | |
| parent | 6e2389900607e3ba1246245908fb3c54e7e4c763 (diff) | |
| download | perl-57b2e4523f4df782c055782388ac1aacff9603ef.tar.gz | |
avoid PTR->IV cast warnings
p4raw-id: //depot/perl@4605
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1182,7 +1182,7 @@ Perl_magic_setdbline(pTHX_ SV *sv, MAGIC *mg) i = SvTRUE(sv); svp = av_fetch(GvAV(gv), atoi(MgPV(mg,n_a)), FALSE); - if (svp && SvIOKp(*svp) && (o = (OP*)SvIVX(*svp))) + if (svp && SvIOKp(*svp) && (o = INT2PTR(OP*,SvIVX(*svp)))) o->op_private = i; else if (ckWARN_d(WARN_INTERNAL)) Perl_warner(aTHX_ WARN_INTERNAL, "Can't break at that line\n"); |