--- runfiles/texmf-dist/scripts/pedigree-perl/pedigree.pl.orig
+++ runfiles/texmf-dist/scripts/pedigree-perl/pedigree.pl
@@ -112,13 +112,9 @@
 my $TLCONF;        # TL config file
 my $TLCONFLOCAL;   # TL local config file
 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";
-    }
+    unshift @INC, "@@TEXMFDIST@@/scripts/pedigree-perl";
+    $TLCONF = "@@TEXMFSYSCONFIG@@/pedigree/pedigree.cfg";
+    $TLCONFLOCAL = "@@TEXMFLOCAL@@/pedigree/pedigree.cfg";
 }
 
 ##############################