… | … | ||
---|---|---|---|
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 |