View | Details | Raw Unified | Return to bug 53844
Collapse All | Expand All

(-)perl-5.38.2/doop.c (+3 lines)
Lines 442-447 Link Here
442 
     * assume cannot */
 442 
     * assume cannot */
443 
    if (! out_is_utf8 && (PL_op->op_private & OPpTRANS_CAN_FORCE_UTF8)) {
 443 
    if (! out_is_utf8 && (PL_op->op_private & OPpTRANS_CAN_FORCE_UTF8)) {
444 
        inplace = FALSE;
 444 
        inplace = FALSE;
445 
		if (max_expansion < 2) {
446 
            	max_expansion = 2;
447 
        }
445 
    }
 448 
    }
446 

          449
          

        

        

          447
          
    s = (U8*)SvPV_nomg(sv, len);

          450
          
    s = (U8*)SvPV_nomg(sv, len);

        






  

  Return to bug 53844