[perl #117941] reset crashes when current stash is freed