fold-stdout: Get rid of Perl warnings about unescaped left braces
commit87f468426d20ce79c366b3b048c0a1e3d52bd064
authorØyvind A. Holm <sunny@sunbase.org>
Sun, 21 Jan 2024 18:22:08 +0000 (21 19:22 +0100)
committerØyvind A. Holm <sunny@sunbase.org>
Sun, 21 Jan 2024 18:22:08 +0000 (21 19:22 +0100)
tree470a090ffc3597e6902a653d058697208bbc9cbe
parentc727913efbbc9c4fac92eac1ef6b966ef07bcc89
fold-stdout: Get rid of Perl warnings about unescaped left braces

Something in newer Perl versions (or maybe not too new, I haven't used
this script for years) has changed so it generated these warnings:

`$ fold-stdout out.fsck.txt`\
`Unescaped left brace in regex is passed through in regex; marked by <--
HERE in m/{{ <-- HERE {/ at /home/sunny/bin/fold-stdout line 69, <> line
1.`\
`Unescaped left brace in regex is passed through in regex; marked by <--
HERE in m/{{{ <-- HERE / at /home/sunny/bin/fold-stdout line 69, <> line
1.`

Fixed it by quoting the braces in `FOLD_BEGIN` and `FOLD_END` with
backslashes.

4b0090bc-b88c-11ee-a8c8-83850402c3ce
fold-stdout