stop warnings from newer versions of perl