1         995:     /* If there's a common identifier on both sides we have to take
         1         996:      * special care that assigning the identifier on the left doesn't
         1         997:      * clobber a value on the right that's used later in the list.
         1         998:      */
      5492 <<      999:     if (PL_op->op_private & (OPpASSIGN_COMMON)) {
      2062 <<     1000: 	EXTEND_MORTAL(lastrelem - firstrelem + 1);
      5492 <<     1001: 	for (relem = firstrelem; relem <= lastrelem; relem++) {
      5540 <<     1002: 	    if ((sv = *relem)) {
        18 << br  1003: 		TAINT_NOT;	/* Each item is independent */
      5492 <<     1004: 		*relem = sv_mortalcopy(sv);
        18 << br  1005: 	    }
      5492 <<     1006: 	}
         1        1007:     }
         1        1008: