diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-10-09 19:17:08 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-10-09 19:17:08 +0000 |
| commit | d59e14dbffe53a28b0845a7d6b4250babf9e83ac (patch) | |
| tree | e87993a60fdd580672ebf43813fbdca6dbf79e81 /doop.c | |
| parent | cb23e6a442dc2c0b012e000464ec63c7cf4171fa (diff) | |
| download | perl-d59e14dbffe53a28b0845a7d6b4250babf9e83ac.tar.gz | |
Fix bug #17823 : non-modifying tr/// stringifies references
p4raw-id: //depot/perl@17984
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -608,10 +608,11 @@ Perl_do_trans(pTHX_ SV *sv) (void)SvPV(sv, len); if (!len) return 0; - if (!SvPOKp(sv)) - (void)SvPV_force(sv, len); - if (!(PL_op->op_private & OPpTRANS_IDENTICAL)) + if (!(PL_op->op_private & OPpTRANS_IDENTICAL)) { + if (!SvPOKp(sv)) + (void)SvPV_force(sv, len); (void)SvPOK_only_UTF8(sv); + } DEBUG_t( Perl_deb(aTHX_ "2.TBL\n")); |