Make it pass in recent perl as well