Mini Shell
Mini Shell
| Direktori : /usr/local/lib/perl5/site_perl/mach/5.32/Razor2/Preproc/ |
| Current File : //usr/local/lib/perl5/site_perl/mach/5.32/Razor2/Preproc/deNewline.pm |
package Razor2::Preproc::deNewline;
use MIME::QuotedPrint;
sub new {
return bless {}, shift;
}
sub isit {
1;
}
sub doit {
my ($self, $text) = @_;
my ($hdr, $body) = split /\n\r*\n/, $$text, 2;
return unless $body;
unless ($body =~ s/\n+$//s) {
return $text;
}
$$text = "$hdr\n\n$body";
return $text;
}
1;