Mini Shell
Mini Shell
| Direktori : /home/rs/perl/mysql/lib/perl5/site_perl/5.8/mach/Razor2/Preproc/ |
| Current File : /home/rs/perl/mysql/lib/perl5/site_perl/5.8/mach/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;