weaken did discard ref in perl 5.20