56a57
>     my $linenums = _param('linenums', %a);
68c69,70
<               (defined $alt_delim ? (DELIM => $alt_delim) : ()),
---
>               (defined $linenums  ? (LINENUMS => $linenums) : ()),
>               (defined $alt_delim ? (DELIM => $alt_delim)   : ()),
85a88
>     $self->{FILENAME} = $self->{SOURCE};
261a265
>   my $fi_filename = $fi_self->{FILENAME} || 'text_template';
272c276,277
<       my $fi_progtext = "package $fi_eval_package; $fi_prepend;\n#line 1\n$fi_text"
---
>       my $fi_lncomment = ($fi_self->{LINENUMS} ? "#line $fi_lineno $fi_filename" : "#line 1");
>       my $fi_progtext = "package $fi_eval_package; $fi_prepend;\n$fi_lncomment\n$fi_text"