pedigree @INC fix

[texlive at schoepfer.info]

Hi,

here on Slackware 15.0 with texlive 2022, pedigree doesn't start, it 
says:

Can't locate Pedigree.pm in @INC (you may need to install the Pedigree 
module) (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 
/usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl 
/usr/lib64/perl5 /usr/share/perl5) at /usr/bin/pedigree line 124.
BEGIN failed--compilation aborted at /usr/bin/pedigree line 124.


$TLMaster/texmf-dist/scripts/pedigree-perl ist not in @INC, i fixed it 
by


--- /usr/share/texmf-dist/scripts/pedigree-perl/pedigree.pl	2021-10-03 
22:29:06.000000000 +0200
+++ pedigree.pl	2022-08-28 13:36:07.095540443 +0200
@@ -111,12 +111,15 @@
  my $TLMaster;      # Where TeXlive is
  my $TLCONF;        # TL config file
  my $TLCONFLOCAL;   # TL local config file
-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";
+    }
  }

  use Getopt::Std;



Cheers,

Johannes