| … | … | ||
|---|---|---|---|
| 1414 | s/(?<=\S)\n(?=\w)/ /g; | 1414 | s/(?<=\S)\n(?=\w)/ /g; |
| 1415 | 1415 | ||
| 1416 | # compress some whitespace | 1416 | # compress some whitespace |
| 1417 | 1 while s/\s*\n\s*\n\s*/\n/; | 1417 | 1 while s/\s*\n\s*\n\s*/\n/; |
| 1418 | 1418 | ||
| 1419 | s/^\s+//; | ||
| 1420 | s/\s+$//; | ||
| 1421 | |||
| 1419 | $_ | 1422 | $_ |
| 1420 | } | 1423 | } |
| 1421 | 1424 | ||
| 1422 | sub hintmode { | 1425 | sub hintmode { |
| 1423 | $_[0]{hintmode} = $_[1] if @_ > 1; | 1426 | $_[0]{hintmode} = $_[1] if @_ > 1; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |