Follow-up Comment #20, bug #64360 (project groff):
[comment #19 comment #19:]
> my $lin=substr($_,1);
> + $lin=~s/^\s*//;
One nit: as long as you're already unleashing a regex, you may as well use it
to also perform the edit substr() is doing, and remove that function call.
my $lin=$_;
$lin=~s/^.\s*//;
Similar code appears a few lines down as well and can be similarly combined
(this time saving a line of code because you can eliminate an assignment).
_______________________________________________________
Reply to this item at:
<https://savannah.gnu.org/bugs/?64360>
_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/
