pedigree @INC fix

[Norbert Preining]

Hi Johannes, hi Boris

On Sun, 28 Aug 2022, TeX Live Mailing List wrote:
> here on Slackware 15.0 with texlive 2022, pedigree doesn't start, it says:

Same on upstream TL

> Can't locate Pedigree.pm in @INC (you may need to install the Pedigree

> -chomp($TLMaster = `kpsewhich -var-value=TEXMFROOT`);
> -if (length($TLMaster)) {
> -    unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
> -    $TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";
> -    chomp($TLCONFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
> -    $TLCONFLOCAL .= "/pedigree/pedigree.cfg";
> +
> +BEGIN {
> +    chomp($TLMaster = `kpsewhich -var-value=TEXMFROOT`);
> +    if (length($TLMaster)) {
> +        unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
> +        $TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";
> +        chomp($TLCONFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
> +        $TLCONFLOCAL .= "/pedigree/pedigree.cfg";
> +    }
>  }

That is the correct fix. 

@Boris, can you please fix that in your repo and upload a new version to
CTAN, please.
You cannot rely on finding modules with use that are not in the default
search path unless you do it in the BEGIN block.

Thanks

Norbert

--
PREINING Norbert                              https://www.preining.info
Mercari Inc.     +     IFMGA Guide     +     TU Wien     +     TeX Live
GPG: 0x860CDC13   fp: F7D8 A928 26E3 16A1 9FA0 ACF0 6CAC A448 860C DC13