Tramp envia o seguinte snippet Perl para receber as conclusões do arquivo
\perl5 -e 'sub case {
my $str = shift;
if ($ARGV[2]) {
return lc($str);
}
else {
return $str;
}
}
opendir(d, $ARGV[0]) || die("$ARGV[0]: $!\nfail\n");
@files = readdir(d); closedir(d);
foreach $f (@files) {
if (case(substr($f, 0, length($ARGV[1]))) eq case($ARGV[1])) {
if (-d "$ARGV[0]/$f") {
print "$f/\n";
}
else {
print "$f\n";
}
}
}
print "ok\n"
' /home/ '' 0
perl5 foi quebrado no host remoto devido à biblioteca ausente. A solução foi corrigir manualmente o perl5 quebrado. Tudo isso graças a Michael Albinus .