Changes to constant subs for some older Perls