One Hat Cyber Team

Your IP: 216.73.216.23
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 : ~/usr/share/doc/perl-Filter-1.49/examples/closure/

View File Name : Decompress.pm

package Filter::Decompress ;
# For usage see examples/filtdef
 
use Filter::Util::Call ;
use Compress::Zlib ;
use Carp ;

use strict ;
use warnings ;

our $VERSION = '1.02' ;

sub import
{
    my ($self) = @_ ;

    # Initialise an inflation stream.
    my $x = inflateInit()
        or croak "Internal Error inflateInit" ;
    filter_add(
        sub 
        { 
            my ($status, $err) ;
            if (($status = filter_read()) >0) {
                ($_, $err) = $x->inflate($_) ;
                return -1 unless $err == Z_OK or $err == Z_STREAM_END ;
            }
            $status ;
        })
}

1 ;
__END__