Let it find its .pm files.

--- texmf-dist/scripts/pedigree-perl/pedigree.pl.old	2012-07-26 11:54:47.578188341 -0400
+++ texmf-dist/scripts/pedigree-perl/pedigree.pl	2012-07-26 11:57:53.420470694 -0400
@@ -110,10 +110,10 @@
 
 BEGIN {
     # find files relative to our installed location within TeX Live
-    chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root
+    chomp(my $TLMaster = `kpsewhich -var-value=TEXMFDIST`); # TL root
     if (length($TLMaster)) {
-	unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
-	$TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";
+	unshift @INC, "$TLMaster/scripts/pedigree-perl";
+	$TLCONF = "$TLMaster/pedigree/pedigree.cfg";
 	chomp($TLCONFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
 	$TLCONFLOCAL .= "/pedigree/pedigree.cfg";
     }