[perl #120939] at least fix the leak in const_av_xsub