Small corrections in perlsyn, less one identified by tomc++.

For: RT #118495