DEVTOOLS: COMPANION: Escape more characters for shell commands

This commit is contained in:
Eugene Sandulenko 2021-08-01 10:33:24 +02:00
parent 149681cfad
commit 5288422e26
No known key found for this signature in database
GPG Key ID: 014D387312D34F08

View File

@ -193,7 +193,7 @@ sub processIso($) {
$prevlen = length "$dir$decfname";
flush STDOUT;
$fname =~ s/\*/\\\*/g; # Files cound have stars in them, escape, so shell is happy
$fname =~ s/([*+\[\]\|<>&])/\\$1/g; # Files cound have special symbols in them, escape, so shell is happy
if ($res != 0) {
system1("hcopy -m -- \"$mdir$fname\" \"$outPath$dir$decfname\"") == 0 or die "Can't execute hcopy";