auto þFile not found.  þ File not found. 0 l4(m rţ es_ub &=LV[(? # File : Bzip2.pm # Author : Rob Janes # Created : 14 April 2005 # Version : 2.28 # # Copyright (c) 2005 Rob Janes. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # package Compress::Bzip2; use 5.006; our $VERSION = "2.28"; use strict; use warnings; use Carp; use Getopt::Std; use Fcntl qw(:DEFAULT :mode); require Exporter; use AutoLoader; our @ISA = qw(Exporter); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. # This allows declaration use Compress::Bzip2 ':all'; # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. our %EXPORT_TAGS = ( 'constants' => [ qw( BZ_CONFIG_ERROR BZ_DATA_ERROR BZ_DATA_ERROR_MAGIC BZ_FINISH BZ_FINISH_OK BZ_FLUSH BZ_FLUSH_OK BZ_IO_ERROR BZ_MAX_UNUSED BZ_MEM_ERROR BZ_OK BZ_OUTBUFF_FULL BZ_PARAM_ERROR BZ_RUN BZ_RUN_OK BZ_SEQUENCE_ERROR BZ_STREAM_END BZ_UNEXPECTED_EOF ) ], 'utilities' => [ qw( &bzopen &bzinflateInit &bzdeflateInit &memBzip &memBunzip &compress &decompress &bzip2 &bunzip2 &bzlibversion $bzerrno ) ], 'bzip1' => [ qw( &compress &decompress &compress_init &decompress_init &version ) ], 'gzip' => [ qw( &gzopen &inflateInit &deflateInit &compress &uncompress &adler32 &crc32 ZLIB_VERSION $gzerrno Z_OK Z_STREAM_END Z_NEED_DICT Z_ERRNO Z_STREAM_ERROR Z_DATA_ERROR Z_MEM_ERROR Z_BUF_ERROR Z_VERSION_ERROR Z_NO_FLUSH Z_PARTIAL_FLUSH Z_SYNC_FLUSH Z_FULL_FLUSH Z_FINISH Z_BLOCK Z_NO_COMPRESSION Z_BEST_SPEED Z_BEST_COMPRESSION Z_DEFAULT_COMPRESSION Z_FILTERED Z_HUFFMAN_ONLY Z_RLE Z_DEFAULT_STRATEGY Z_BINARY Z_ASCII Z_UNKNOWN Z_DEFLATED Z_NULL ) ], ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'utilities'} }, @{ $EXPORT_TAGS{'constants'} }, @{ $EXPORT_TAGS{'bzip1'} }, @{ $EXPORT_TAGS{'gzip'} }, ); $EXPORT_TAGS{'all'} = [ @EXPORT_OK ]; our @EXPORT = ( @{ $EXPORT_TAGS{'utilities'} }, @{ $EXPORT_TAGS{'constants'} } ); our $bzerrno = ""; our $gzerrno; *gzerrno = \$bzerrno; # Zlib compatibility ## use constant ZLIB_VERSION => '1.x'; # allowed flush values use constant { Z_NO_FLUSH => 0, Z_PARTIAL_FLUSH => 1, Z_SYNC_FLUSH => 2, Z_FULL_FLUSH => 3, Z_FINISH => 4, Z_BLOCK => 5 }; # return codes for functions, positive normal, negative error use constant { Z_OK => 0, Z_STREAM_END => 1, Z_NEED_DICT => 2, Z_ERRNO => -1, Z_STREAM_ERROR => -2, Z_DATA_ERROR => -3, Z_MEM_ERROR => -4, Z_BUF_ERROR => -5, Z_VERSION_ERROR => -6 }; # compression levels use constant { Z_NO_COMPRESSION => 0, Z_BEST_SPEED => 1, Z_BEST_COMPRESSION => 9, Z_DEFAULT_COMPRESSION => -1 }; # compression strategy, for deflateInit use constant { Z_FILTERED => 1, Z_HUFFMAN_ONLY => 2, Z_RLE => 3, Z_DEFAULT_STRATEGY => 0 }; # possible values of data_type (inflate) use constant { Z_BINARY => 0, Z_ASCII => 1, Z_UNKNOWN => 2 }; # the deflate compression method use constant Z_DEFLATED => 8; # for initialization use constant Z_NULL => 0; ## gzopen, $gzerror, gzerror, gzclose, gzreadline, gzwrite sub AUTOLOAD { # This AUTOLOAD is used to 'autoload' constants from the constant() # XS function. my $constname; our $AUTOLOAD; ($constname = $AUTOLOAD) =~ s/.*:://; croak "&Compress::Bzip2::constant not defined" if $constname eq 'constant'; my ($error,