[ben@mikan] {16:33 45} site_perl 508 $ cd 5.32.1/
/home/ben/software/install/lib/perl5/site_perl/5.32.1
[ben@mikan] {16:33 50} 5.32.1 509 $ find . -name "*.so"
./i386-freebsd/auto/Test/Taint/Taint.so
./i386-freebsd/auto/Term/ReadKey/ReadKey.so
./i386-freebsd/auto/JSON/Create/Create.so
./i386-freebsd/auto/JSON/Parse/Parse.so
./i386-freebsd/auto/JSON/JQ/JQ.so
./i386-freebsd/auto/Gzip/Libdeflate/Libdeflate.so
./i386-freebsd/auto/Gzip/Zopfli/Zopfli.so
./i386-freebsd/auto/PadWalker/PadWalker.so
./i386-freebsd/auto/XString/XString.so
./i386-freebsd/auto/Variable/Magic/Magic.so
./i386-freebsd/auto/B/Hooks/OP/Check/Check.so
./i386-freebsd/auto/DateTime/DateTime.so
./i386-freebsd/auto/Ref/Util/XS/XS.so
./i386-freebsd/auto/Mouse/Mouse.so
./i386-freebsd/auto/Time/timegm/timegm.so
./i386-freebsd/auto/PerlIO/gzip/gzip.so
./i386-freebsd/auto/indirect/indirect.so
./i386-freebsd/auto/multidimensional/multidimensional.so
./i386-freebsd/auto/bareword/filehandles/filehandles.so
./i386-freebsd/auto/NetAddr/IP/Util/Util.so
./i386-freebsd/auto/Email/Address/XS/XS.so
./i386-freebsd/auto/IP/Whitelist/Whitelist.so
./i386-freebsd/auto/Syntax/Keyword/Try/Try.so

##</code><code>##

sub update_from_so
{
    my ($site, $so, $verbose) = @_;

    my @so = split /\n/, $so;
    my %so2f;
    for my $so (@so) {
	$_ = $so;
	chomp;
	s!\./auto/!!;
	s!(/([^/]+))/\2\.so!$1!;
	s!/!-!;
	if ($verbose) {
	    print "Looking for $_...\n";
	}
	my ($dir, $file) = module_to_file ($_);
	if ($verbose) {
	    print "Found $_ as '$dir/$file'\n";
	}
	if (! -f $file) {
	    my $cwd = getcwd ();
	    chdir $dir or die $!;
	    do_system ("./build.pl -d");
	    if (! -f $file) {
		die "Could not recreate file $file\n";
	    }
	    chdir $cwd or die $!;
	}
	$so2f{$so} = [$dir, $file];
    }
    for my $so (@so) {
	my ($dir, $file) = @{$so2f{$so}};
	my $cwd = getcwd ();
	chdir $dir or die $!;
	if (! -f $file) {
	    die "$dir: No $file";
	}
	do_system ("$site-module-build.pl $file");
	chdir $cwd or die $!;
    }
}