make perl critic happy