Add and remove files forgotten in change #27384

[p5sagit/p5-mst-13.2.git] / ext / Compress / IO / Zlib / lib / IO / Uncompress / Inflate.pm

diff --git a/ext/Compress/Zlib/lib/IO/Uncompress/Inflate.pm b/ext/Compress/IO/Zlib/lib/IO/Uncompress/Inflate.pm
similarity index 92%
rename from ext/Compress/Zlib/lib/IO/Uncompress/Inflate.pm
rename to ext/Compress/IO/Zlib/lib/IO/Uncompress/Inflate.pm
index 4193917..62c177c 100644 (file)
--- a/ext/Compress/Zlib/lib/IO/Uncompress/Inflate.pm
+++ b/ext/Compress/IO/Zlib/lib/IO/Uncompress/Inflate.pm
@@ -3,16 +3,17 @@ package IO::Uncompress::Inflate ;
 
 use strict ;
 use warnings;
+use bytes;
 
-use Compress::Zlib::Common qw(createSelfTiedObject);
-use Compress::Zlib::FileConstants;
+use IO::Compress::Base::Common qw(:Status createSelfTiedObject);
+use IO::Compress::Zlib::Constants;
 
 use IO::Uncompress::RawInflate ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
 
-$VERSION = '2.000_07';
+$VERSION = '2.000_08';
 $InflateError = '';
 
 @ISA    = qw( Exporter IO::Uncompress::RawInflate );
@@ -90,7 +91,7 @@ sub chkTrailer
     return $self->TrailerError("CRC mismatch")
         if *$self->{Strict} && $ADLER32 != *$self->{Uncomp}->adler32() ;
 
-    return 1;
+    return STATUS_OK;
 }
 
 
@@ -176,8 +177,10 @@ __END__
 
 =head1 NAME
 
+
 IO::Uncompress::Inflate - Perl interface to read RFC 1950 files/buffers
 
+
 =head1 SYNOPSIS
 
     use IO::Uncompress::Inflate qw(inflate $InflateError) ;
@@ -194,7 +197,10 @@ IO::Uncompress::Inflate - Perl interface to read RFC 1950 files/buffers
     $line = $z->getline()
     $char = $z->getc()
     $char = $z->ungetc()
+    $char = $z->opened()
+
     $status = $z->inflateSync()
+
     $z->trailingData()
     $data = $z->getHeaderInfo()
     $z->tell()
@@ -654,6 +660,8 @@ uncompressed data actually contained in the file.
 
 
 
+
+
 =back
 
 =head2 Examples
@@ -728,6 +736,7 @@ Usage is
     $char = $z->ungetc($string)
 
 
+
 =head2 inflateSync
 
 Usage is
@@ -736,6 +745,7 @@ Usage is
 
 TODO
 
+
 =head2 getHeaderInfo
 
 Usage is
@@ -800,13 +810,51 @@ Usage is
 
 This is a noop provided for completeness.
 
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+
+
+Returns the current uncompressed line number. If C<EXPR> is present it has
+the effect of setting the line number. Note that setting the line number
+does not change the current position within the file/buffer being read.
+
+The contents of C<$/> are used to to determine what constitutes a line
+terminator.
+
+
+
 =head2 fileno
 
     $z->fileno()
     fileno($z)
 
-If the C<$z> object is associated with a file, this method will return
-the underlying filehandle.
+If the C<$z> object is associated with a file or a filehandle, this method
+will return the underlying file descriptor.
 
 If the C<$z> object is is associated with a buffer, this method will
 return undef.
@@ -865,31 +913,40 @@ Same as doing this
 
 =head1 SEE ALSO
 
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Uncompress::AnyInflate>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
 
 L<Compress::Zlib::FAQ|Compress::Zlib::FAQ>
 
-L<File::GlobMapper|File::GlobMapper>, L<Archive::Tar|Archive::Zip>,
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
 L<IO::Zlib|IO::Zlib>
 
+
 For RFC 1950, 1951 and 1952 see 
 F<http://www.faqs.org/rfcs/rfc1950.html>,
 F<http://www.faqs.org/rfcs/rfc1951.html> and
 F<http://www.faqs.org/rfcs/rfc1952.html>
 
-The primary site for the gzip program is F<http://www.gzip.org>.
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+
+
+
+
+
 
 =head1 AUTHOR
 
 The I<IO::Uncompress::Inflate> module was written by Paul Marquess,
-F<pmqs@cpan.org>. The latest copy of the module can be
-found on CPAN in F<modules/by-module/Compress/Compress-Zlib-x.x.tar.gz>.
+F<pmqs@cpan.org>. 
 
-The I<zlib> compression library was written by Jean-loup Gailly
-F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
 
-The primary site for the I<zlib> compression library is
-F<http://www.zlib.org>.
 
 =head1 MODIFICATION HISTORY
 
@@ -899,8 +956,7 @@ See the Changes file.
  
 
 Copyright (c) 2005-2006 Paul Marquess. All rights reserved.
+
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
 
-
-