- if (@quot) { # ugh, top posted
- flush_quote(\$s, $l, \@quot);
- flush_diff(\$s, $spfx, $l, $diff) if $diff && @$diff;
- obfuscate_addrs($obfs_ibx, $s) if $obfs_ibx;
- $s;
- } else {
- flush_diff(\$s, $spfx, $l, $diff) if $diff && @$diff;
- obfuscate_addrs($obfs_ibx, $s) if $obfs_ibx;
- if ($s =~ /\n\z/s) { # common, last line ends with a newline
- $s;
- } else { # some editors don't do newlines...
- $s .= "\n";
- }
- }