fix for perls < 5.10