Select Code to Download

56a57
...
---
>       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"