|
Lines 431-437
Link Here
|
| 431 |
# If there are any long lines, then wrap the input at $columns chars |
431 |
# If there are any long lines, then wrap the input at $columns chars |
| 432 |
# (leaving 2 chars on left, one char on right, after adding indentation below). |
432 |
# (leaving 2 chars on left, one char on right, after adding indentation below). |
| 433 |
$input =~ s/^\s*(.*?)\s*\z/$1/s; # trim whitespace |
433 |
$input =~ s/^\s*(.*?)\s*\z/$1/s; # trim whitespace |
| 434 |
$input = Text::Wrap::fill(' ', ' ', $input); |
434 |
$input = Text::Wrap::wrap(' ', ' ', $input); |
| 435 |
|
435 |
|
| 436 |
# Prepend the user info to the input |
436 |
# Prepend the user info to the input |
| 437 |
unless ($user = $ENV{'ECHANGELOG_USER'}) { |
437 |
unless ($user = $ENV{'ECHANGELOG_USER'}) { |
