On Tue, Mar 28, 2023 at 11:46 PM Eric Sunshine <sunshine@xxxxxxxxxxxxxx> wrote:
> The attached patch seems to do the job. Apologies for Gmail messing up
> the whitespace. It's also attached to the email.
>
> $tag =~ s/['"\\]//g;
> - push(@{$self->{heretags}}, $indented ? "\t$tag" : "$tag");
> + $$token[0] = "\t$tag" if $indented;
> + push(@{$self->{heretags}}, $token);
> return "<<$indented$tag";
Bah, the `$$token[0] = ...` line is incorrect. It should be:
$$token[0] = $indented ? "\t$tag" : "$tag";
which more correctly matches the original code. Without this fix,
$$token[0] only gets the cleaned tag name in the `<<-EOF` case but not
in the plain `<<EOF` case.
