| … | |
… | |
| 586 | SvFLAGS (a) = (SvFLAGS (a) & keep) | (SvFLAGS (b ) & ~keep); |
586 | SvFLAGS (a) = (SvFLAGS (a) & keep) | (SvFLAGS (b ) & ~keep); |
| 587 | SvFLAGS (b) = (SvFLAGS (b) & keep) | (SvFLAGS (&tmp) & ~keep); |
587 | SvFLAGS (b) = (SvFLAGS (b) & keep) | (SvFLAGS (&tmp) & ~keep); |
| 588 | |
588 | |
| 589 | #if PERL_VERSION_ATLEAST (5,10,0) |
589 | #if PERL_VERSION_ATLEAST (5,10,0) |
| 590 | /* perl 5.10 complicates this _quite_ a bit, but it also is |
590 | /* perl 5.10 complicates this _quite_ a bit, but it also is |
| 591 | * is much faster, so no quarrels here. alternatively, we could |
591 | * much faster, so no quarrels here. alternatively, we could |
| 592 | * sv_upgrade to avoid this. |
592 | * sv_upgrade to avoid this. |
| 593 | */ |
593 | */ |
| 594 | { |
594 | { |
| 595 | /* swap sv_u */ |
595 | /* swap sv_u */ |
| 596 | tmp.sv_u = a->sv_u; a->sv_u = b->sv_u; b->sv_u = tmp.sv_u; |
596 | tmp.sv_u = a->sv_u; a->sv_u = b->sv_u; b->sv_u = tmp.sv_u; |
