--- runfiles/texmf-dist/scripts/crossrefware/bbl2bib.pl.orig
+++ runfiles/texmf-dist/scripts/crossrefware/bbl2bib.pl
@@ -98,10 +98,7 @@
 use strict;
 BEGIN {
     # find files relative to our installed location within TeX Live
-    chomp(my $TLMaster = `kpsewhich -var-value=TEXMFROOT`); # TL root
-    if (length($TLMaster)) {
-	unshift @INC, "$TLMaster/texmf-dist/scripts/bibtexperllibs";
-    }
+    unshift @INC, "@@TEXMFDIST@@/scripts/bibtexperllibs";
 }
 use IO::File;
 use BibTeX::Parser;