Perl files are not always executable

This commit is contained in:
Loric Brevet 2023-12-04 14:19:15 +01:00
parent 7f49395cf9
commit a362c8a145
No known key found for this signature in database
GPG Key ID: 6AB3DBD46F8FB159

View File

@ -54,7 +54,7 @@ define-command patch -params .. -docstring %{
# a shell where it expands to nothing. # a shell where it expands to nothing.
eval set -- $kak_quoted_reg_a eval set -- $kak_quoted_reg_a
"${kak_reg_f%/*}/patch-range.pl" $min_line $max_line "$@" || perl "${kak_reg_f%/*}/patch-range.pl" $min_line $max_line "$@" ||
echo >$kak_command_fifo "set-register e fail 'patch: failed to apply selections, see *debug* buffer'" echo >$kak_command_fifo "set-register e fail 'patch: failed to apply selections, see *debug* buffer'"
} }
execute-keys |<ret> execute-keys |<ret>