fix PerlSourceGenerator