procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Perl script in Tramp

Browse source 
* lisp/net/tramp-sh.el (tramp-perl-file-name-all-completions):
Fix Perl script.  (Bug#65744)
This commit is contained in:
Michael Albinus 2023-09-08 11:07:54 +02:00
parent 237cadf246
commit a90ba8d015
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/net/tramp-sh.el
View file

@ -634,7 +634,10 @@ characters need to be doubled.")
(defconst tramp-perl-file-name-all-completions
"%p -e '
($dir = $ARGV[0]) =~ s#/+$##;
$dir = $ARGV[0];
if ($dir ne \"/\") {
$dir =~ s#/+$##;
}
opendir(d, $dir) || die(\"$dir: $!\\nfail\\n\");
@files = readdir(d); closedir(d);
print \"(\\n\";