Translator.pm fix

Adds an extra check because in newer versions of perl ref($init_subroutine) was returning "CODE" even though $init_subroutine was referencing an undefined subroutine.