diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-18 19:37:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-18 19:37:01 +0000 |
| commit | b448e4fea9d52c651a1814ffb2d1d8745f1f0de9 (patch) | |
| tree | cc6a8f1acc6475943ed0424ac9260006082e4367 /op.c | |
| parent | 1a3327fb7deb3868ef5f43054de7364d8208e8e7 (diff) | |
| download | perl-b448e4fea9d52c651a1814ffb2d1d8745f1f0de9.tar.gz | |
Use the newSVuv().
p4raw-id: //depot/cfgperl@5804
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2746,7 +2746,8 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl) SvREFCNT_dec(transv); if (!del && havefinal) - (void)hv_store((HV*)SvRV((cSVOPo->op_sv)), "FINAL", 5, newSViv((IV)final), 0); + (void)hv_store((HV*)SvRV((cSVOPo->op_sv)), "FINAL", 5, + newSVuv((UV)final), 0); if (grows && to_utf) o->op_private |= OPpTRANS_GROWS; |