Default location of TEXMFLOCAL with alternate installation path

[Karl Berry]

Hi Magnus,

    "Use of uninitialized value $deftmflocal in string at
    C:\tools\install-tl-08062216\install-tl line 1416"

Several curiousities here.

1) Did you rename the install-tl directory manually? Ordinarily
it would be named "install-tl-20220608", afaik. Just wanting to be sure
we're talking about the same version, since ...

2) ... there is no mention of $deftmflocal on line 1416 in current
install-tl. It's defined on line 1410 and used on line 1411. (See below.)

3) As shown in your patch, $deftmflocal is defined on the line right
before the one you changed (1410):

       my $deftmflocal = Cwd::abs_path($vars{'TEXDIR'}.'/../texmf-local');
-      if (Cwd::abs_path($vars{TEXMFLOCAL}) ne "$deftmflocal") {
+      if (defined $deftmflocal && Cwd::abs_path($vars{TEXMFLOCAL}) ne "$deftmflocal") {

I didn't think abs_path could ever return undef.
Can you insert a print between the assignment and use?
Is it $vars{'TEXDIR'} that is undef? But it shouldn't be, per your profile...

Thanks,
Karl

(from install-tl 63068 2022-04-18 ... see second line of file.)
1410      my $deftmflocal = Cwd::abs_path($vars{'TEXDIR'}.'/../texmf-local');
1411      if (Cwd::abs_path($vars{TEXMFLOCAL}) ne "$deftmflocal") {
1412        push @changedtmf, "TEXMFLOCAL = $vars{'TEXMFLOCAL'}\n";
1413      }
1414    } elsif ($line =~ m/^TEXMFSYSVAR/) {
1415      if ("$vars{'TEXMFSYSVAR'}" ne "$vars{'TEXDIR'}/texmf-var") {
1416        push @changedtmf, "TEXMFSYSVAR = $vars{'TEXMFSYSVAR'}\n";