One Hat Cyber Team

Your IP: 216.73.216.19
Server IP: 178.33.27.10
Server: Linux cpanel.dev-unit.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software: Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
PHP Version: 8.2.11
Buat File | Buat Folder

Dir : ~/lib64/perl5/vendor_perl/Razor2/Preproc/

View File Name : 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;