r11230 - in /trunk/libio-zlib-perl: ChangeLog MANIFEST META.yml Makefile.PL SIGNATURE Zlib.pm debian/changelog t/0signature.t t/basic.t t/external.t t/getline.t t/uncomp1.t t/uncomp2.t
hanska-guest at users.alioth.debian.org
hanska-guest at users.alioth.debian.org
Sun Dec 16 15:11:24 UTC 2007
Author: hanska-guest
Date: Sun Dec 16 15:11:23 2007
New Revision: 11230
URL: http://svn.debian.org/wsvn/?sc=1&rev=11230
Log:
* New upstream version
Removed:
trunk/libio-zlib-perl/t/0signature.t
Modified:
trunk/libio-zlib-perl/ChangeLog
trunk/libio-zlib-perl/MANIFEST
trunk/libio-zlib-perl/META.yml
trunk/libio-zlib-perl/Makefile.PL
trunk/libio-zlib-perl/SIGNATURE
trunk/libio-zlib-perl/Zlib.pm
trunk/libio-zlib-perl/debian/changelog
trunk/libio-zlib-perl/t/basic.t
trunk/libio-zlib-perl/t/external.t
trunk/libio-zlib-perl/t/getline.t
trunk/libio-zlib-perl/t/uncomp1.t
trunk/libio-zlib-perl/t/uncomp2.t
Modified: trunk/libio-zlib-perl/ChangeLog
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/ChangeLog?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/ChangeLog (original)
+++ trunk/libio-zlib-perl/ChangeLog Sun Dec 16 15:11:23 2007
@@ -1,3 +1,60 @@
+Sun Nov 18 17:43:49 2007 Tom Hughes <tom at compton.nu>
+
+ * Zlib.pm
+ Changed version number to 1.08.
+
+ * t/uncomp1.t
+ * t/uncomp2.t
+ Add the PID to the name of the temporary file used by
+ several tests to avoid clashing with the directory
+ called test in the perl source tree.
+
+ * Zlib.pm
+ Require perl 5.006 instead of 5.004 as Fcntl does not
+ implement SEEK_SET before then.
+
+ * Zlib.pm
+ Removed "IO::Zlib::WRITE: OFFSET is not supported" error
+ from documentation as it is no longer generated.
+
+2007-07-28 Tom Hughes <tom at compton.nu>
+
+ * Zlib.pm
+ Changed version number to 1.07.
+
+ * MANIFEST
+ * t/0signature.t
+ Removed signature test.
+
+2007-07-18 Tom Hughes <tom at compton.nu>
+
+ * Zlib.pm
+ Changed version number to 1.06.
+
+ * t/external.t
+ Exit immediately if there is no gzip program.
+
+2007-03-04 Tom Hughes <tom at compton.nu>
+
+ * Zlib.pm
+ Changed version number to 1.05.
+
+ * Zlib.pm
+ Added dummy FILENO method to stop the debugger barfing
+ when asked to dump a IO::Zlib object.
+
+ * Zlib.pm
+ Removed internal eof flag and use gzeof instead.
+
+ * t/getline.t
+ Added tests for the eof method while reading lines.
+
+ * t/basic.t
+ Add test for reading at an offset.
+
+ * Zlib.pm
+ Allow an offset to be specifed when reading or writing.
+
2004-09-05 Tom Hughes <tom at compton.nu>
* Zlib.pm
Modified: trunk/libio-zlib-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/MANIFEST?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/MANIFEST (original)
+++ trunk/libio-zlib-perl/MANIFEST Sun Dec 16 15:11:23 2007
@@ -5,7 +5,6 @@
README
SIGNATURE
Zlib.pm
-t/0signature.t
t/basic.t
t/external.t
t/getc.t
Modified: trunk/libio-zlib-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/META.yml?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/META.yml (original)
+++ trunk/libio-zlib-perl/META.yml Sun Dec 16 15:11:23 2007
@@ -1,11 +1,12 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: IO-Zlib
-version: 1.04
-version_from: Zlib.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: IO-Zlib
+version: 1.08
+abstract: ~
+license: ~
+generated_by: ExtUtils::MakeMaker version 6.36
+distribution_type: module
+requires:
Compress::Zlib: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.21
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Modified: trunk/libio-zlib-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/Makefile.PL?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/Makefile.PL (original)
+++ trunk/libio-zlib-perl/Makefile.PL Sun Dec 16 15:11:23 2007
@@ -4,5 +4,6 @@
NAME => 'IO::Zlib',
VERSION_FROM => 'Zlib.pm',
PREREQ_PM => { 'Compress::Zlib' => 0 },
+ SIGN => 1,
dist => { COMPRESS => 'gzip', SUFFIX => 'gz' },
);
Modified: trunk/libio-zlib-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/SIGNATURE?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/SIGNATURE (original)
+++ trunk/libio-zlib-perl/SIGNATURE Sun Dec 16 15:11:23 2007
@@ -1,12 +1,12 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.41.
+signed via the Module::Signature module, version 0.55.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
-It would check each file's integrity, as well as the signature's
+It will check each file's integrity, as well as the signature's
validity. If "==> Signature verified OK! <==" is not displayed,
the distribution may already have been compromised, and you should
not run its Makefile.PL or Build.PL.
@@ -14,26 +14,25 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 21493a80a76e03ebec765ce0a8f90027c32dfd86 ChangeLog
-SHA1 bc672ead11c804ab4e5190339e196f7cc740735f MANIFEST
-SHA1 7436a7c8d29ebba41f6b40f1ed8f8377215c2ab8 META.yml
-SHA1 846d4bcec6c80f15d5159d06d8d8b0015fe3fadf Makefile.PL
+SHA1 bcdb81e01adf07aa3b328341fed21a43bb2a83cf ChangeLog
+SHA1 f40ead6aa5d4e89ad735b103ffcb6db45b2bf287 MANIFEST
+SHA1 333182a81b373a2fc44a2e04e3f0dc9458ad6ed0 META.yml
+SHA1 464eb5e52831ee164c6196992d0e1ffead1a68d2 Makefile.PL
SHA1 b3b48f9e136027482f5aa97725d8fd57f2a80a71 README
-SHA1 f4df9f404d7ccb35ffd9e4a3b561ceef8561b9d9 Zlib.pm
-SHA1 5d1afc7e25425cb9f50566e60b3eda82df7a52ad t/0signature.t
-SHA1 9838f34dd7aef0795810be60fcc049b3e0226802 t/basic.t
-SHA1 3b52d64ad521ad63f49c4bbb6a97456d8e66e6d1 t/external.t
+SHA1 2cdae03da8467d6cfb448ad54a9c7682731f8265 Zlib.pm
+SHA1 13663459f0fba824818cefedee2100bfadce3dfc t/basic.t
+SHA1 c4cca5764d5cbbf207a648ec7a3ef14de79d0c1e t/external.t
SHA1 6e4d78228a1d59e21bee5e65d77e006357452777 t/getc.t
-SHA1 5bdf76dbf51a1a6f57075691411d09c6052cb68e t/getline.t
+SHA1 003e153c445316d66d16f7d364749afc716b4522 t/getline.t
SHA1 bc2b5e94a16dd5bf8b08549b20403c319fe0b9be t/import.t
SHA1 1f09885f1ce1d72c52c28a177f033564d3d77646 t/large.t
SHA1 521e2db5d19514345339230b4909018bafb677b6 t/tied.t
-SHA1 ff51389ea4949587b108217a752055e0616400df t/uncomp1.t
-SHA1 3fe1eac1edb3c3eea3e5d2ca8dbb57826799725a t/uncomp2.t
+SHA1 980956c4e4488ca131f894ea2c8408a3ee670140 t/uncomp1.t
+SHA1 7ca7f549fdee7ae406e123ace0ad9b453418c315 t/uncomp2.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.2.4 (GNU/Linux)
+Version: GnuPG v1.4.7 (GNU/Linux)
-iD8DBQFBOzRcsTvgEvrnk5kRAsFTAJ93Wq6UMGykppvBQjlx3eNED4XFtgCfdI3T
-0Gewf1wfnh+nvoTL3WWb0Sk=
-=bBIT
+iD8DBQFHQNFCsTvgEvrnk5kRAk+zAKCrHwbUpSrP3b4nf19h0bIG6xT6hwCfT5j2
+LuuTWDR4jK8cSTgxWbpA5xQ=
+=G8Ch
-----END PGP SIGNATURE-----
Modified: trunk/libio-zlib-perl/Zlib.pm
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/Zlib.pm?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/Zlib.pm (original)
+++ trunk/libio-zlib-perl/Zlib.pm Sun Dec 16 15:11:23 2007
@@ -6,7 +6,7 @@
package IO::Zlib;
-$VERSION = "1.04";
+$VERSION = "1.08";
=head1 NAME
@@ -256,17 +256,9 @@
We must know how much to read.
-=item IO::Zlib::READ: OFFSET is not supported
-
-Offsets of gzipped streams are not supported.
-
=item IO::Zlib::WRITE: too long LENGTH
The LENGTH must be less than or equal to the buffer size.
-
-=item IO::Zlib::WRITE: OFFSET is not supported
-
-Offsets of gzipped streams are not supported.
=back
@@ -291,7 +283,7 @@
=cut
-require 5.004;
+require 5.006;
use strict;
use vars qw($VERSION $AUTOLOAD @ISA);
@@ -389,6 +381,7 @@
*IO::Handle::gzread = \&gzread_external;
*IO::Handle::gzwrite = \&gzwrite_external;
*IO::Handle::gzreadline = \&gzreadline_external;
+ *IO::Handle::gzeof = \&gzeof_external;
*IO::Handle::gzclose = \&gzclose_external;
$gzip_used = 1;
} else {
@@ -398,6 +391,7 @@
*gzread = \&Compress::Zlib::gzread;
*gzwrite = \&Compress::Zlib::gzwrite;
*gzreadline = \&Compress::Zlib::gzreadline;
+ *gzeof = \&Compress::Zlib::gzeof;
}
$aliased = 1;
}
@@ -438,7 +432,6 @@
croak "IO::Zlib::open: needs a filename" unless defined($filename);
$self->{'file'} = gzopen($filename,$mode);
- $self->{'eof'} = 0;
return defined($self->{'file'}) ? $self : undef;
}
@@ -452,7 +445,6 @@
my $status = $self->{'file'}->gzclose();
delete $self->{'file'};
- delete $self->{'eof'};
return ($status == 0) ? 1 : undef;
}
@@ -462,18 +454,15 @@
my $self = shift;
my $bufref = \$_[0];
my $nbytes = $_[1];
- my $offset = $_[2];
+ my $offset = $_[2] || 0;
croak "IO::Zlib::READ: NBYTES must be specified" unless defined($nbytes);
- croak "IO::Zlib::READ: OFFSET is not supported" if defined($offset) && $offset != 0;
-
- return 0 if $self->{'eof'};
-
- my $bytesread = $self->{'file'}->gzread($$bufref,$nbytes);
+
+ $$bufref = "" unless defined($$bufref);
+
+ my $bytesread = $self->{'file'}->gzread(substr($$bufref,$offset),$nbytes);
return undef if $bytesread < 0;
-
- $self->{'eof'} = 1 if $bytesread < $nbytes;
return $bytesread;
}
@@ -505,17 +494,21 @@
my $length = shift;
my $offset = shift;
- croak "IO::Zlib::WRITE: too long LENGTH" unless $length <= length($buf);
- croak "IO::Zlib::WRITE: OFFSET not supported" if defined($offset) && $offset != 0;
-
- return $self->{'file'}->gzwrite(substr($buf,0,$length));
+ croak "IO::Zlib::WRITE: too long LENGTH" unless $offset + $length <= length($buf);
+
+ return $self->{'file'}->gzwrite(substr($buf,$offset,$length));
}
sub EOF
{
my $self = shift;
- return $self->{'eof'};
+ return $self->{'file'}->gzeof();
+}
+
+sub FILENO
+{
+ return undef;
}
sub new
@@ -643,6 +636,10 @@
return defined $_[1] ? length($_[1]) : -1;
}
+sub gzeof_external {
+ return eof($_[0]);
+}
+
sub gzclose_external {
close($_[0]);
# I am not entirely certain why this is needed but it seems
Modified: trunk/libio-zlib-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/debian/changelog?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/debian/changelog (original)
+++ trunk/libio-zlib-perl/debian/changelog Sun Dec 16 15:11:23 2007
@@ -1,11 +1,15 @@
-libio-zlib-perl (1.04-2) UNRELEASED; urgency=low
+libio-zlib-perl (1.08-1) UNRELEASED; urgency=low
+ [ gregor herrmann ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza).
* Set Maintainer to Debian Perl Group.
* Use dist-based URL in debian/watch.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Sat, 01 Dec 2007 18:54:58 +0100
+ [ David Paleino ]
+ * New upstream version
+
+ -- David Paleino <d.paleino at gmail.com> Sun, 16 Dec 2007 16:10:36 +0100
libio-zlib-perl (1.04-1) unstable; urgency=low
Modified: trunk/libio-zlib-perl/t/basic.t
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/t/basic.t?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/t/basic.t (original)
+++ trunk/libio-zlib-perl/t/basic.t Sun Dec 16 15:11:23 2007
@@ -13,7 +13,7 @@
$name="test.gz";
-print "1..15\n";
+print "1..17\n";
$hello = <<EOM ;
hello world
@@ -30,13 +30,17 @@
ok(7, $file->open($name, "rb"));
ok(8, !$file->eof());
ok(9, $file->read($uncomp, 1024) == length($hello));
-ok(10, $file->eof());
-ok(11, $file->opened());
-ok(12, $file->close());
-ok(13, !$file->opened());
+ok(10, $uncomp eq $hello);
+ok(11, $file->eof());
+ok(12, $file->opened());
+ok(13, $file->close());
+ok(14, !$file->opened());
+
+$file = IO::Zlib->new($name, "rb");
+ok(15, $file->read($uncomp, 1024, length($uncomp)) == length($hello));
+ok(16, $uncomp eq $hello . $hello);
+$file->close();
unlink($name);
-ok(14, $hello eq $uncomp);
-
-ok(15, !defined(IO::Zlib->new($name, "rb")));
+ok(17, !defined(IO::Zlib->new($name, "rb")));
Modified: trunk/libio-zlib-perl/t/external.t
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/t/external.t?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/t/external.t (original)
+++ trunk/libio-zlib-perl/t/external.t Sun Dec 16 15:11:23 2007
@@ -10,6 +10,7 @@
":$ENV{PATH}:" =~ m!:/usr/bin:! &&
-d "/usr/bin" && -x "/usr/bin") {
print "1..0 # Skip: no $gzip\n";
+ exit 0;
}
sub ok
Modified: trunk/libio-zlib-perl/t/getline.t
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/t/getline.t?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/t/getline.t (original)
+++ trunk/libio-zlib-perl/t/getline.t Sun Dec 16 15:11:23 2007
@@ -13,7 +13,7 @@
$name="test.gz";
-print "1..19\n";
+print "1..23\n";
@text = (<<EOM, <<EOM, <<EOM, <<EOM) ;
this is line 1
@@ -32,22 +32,26 @@
ok(3, $file->close());
ok(4, $file = IO::Zlib->new($name, "rb"));
-ok(5, $file->getline() eq $text[0]);
-ok(6, $file->getline() eq $text[1]);
-ok(7, $file->getline() eq $text[2]);
-ok(8, $file->getline() eq $text[3]);
-ok(9, !defined($file->getline()));
-ok(10, $file->close());
+ok(5, !$file->eof());
+ok(6, $file->getline() eq $text[0]);
+ok(7, $file->getline() eq $text[1]);
+ok(8, $file->getline() eq $text[2]);
+ok(9, $file->getline() eq $text[3]);
+ok(10, !defined($file->getline()));
+ok(11, $file->eof());
+ok(12, $file->close());
-ok(11, $file = IO::Zlib->new($name, "rb"));
+ok(13, $file = IO::Zlib->new($name, "rb"));
+ok(14, !$file->eof());
eval '$file->getlines';
-ok(12, $@ =~ /^IO::Zlib::getlines: must be called in list context /);
-ok(13, @lines = $file->getlines());
-ok(14, @lines == @text);
-ok(15, $lines[0] eq $text[0]);
-ok(16, $lines[1] eq $text[1]);
-ok(17, $lines[2] eq $text[2]);
-ok(18, $lines[3] eq $text[3]);
-ok(19, $file->close());
+ok(15, $@ =~ /^IO::Zlib::getlines: must be called in list context /);
+ok(16, @lines = $file->getlines());
+ok(17, @lines == @text);
+ok(18, $lines[0] eq $text[0]);
+ok(19, $lines[1] eq $text[1]);
+ok(20, $lines[2] eq $text[2]);
+ok(21, $lines[3] eq $text[3]);
+ok(22, $file->eof());
+ok(23, $file->close());
unlink($name);
Modified: trunk/libio-zlib-perl/t/uncomp1.t
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/t/uncomp1.t?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/t/uncomp1.t (original)
+++ trunk/libio-zlib-perl/t/uncomp1.t Sun Dec 16 15:11:23 2007
@@ -18,7 +18,7 @@
this is a test
EOM
-$name = "test";
+$name = "test$$";
if (open(FH, ">$name")) {
binmode FH;
Modified: trunk/libio-zlib-perl/t/uncomp2.t
URL: http://svn.debian.org/wsvn/trunk/libio-zlib-perl/t/uncomp2.t?rev=11230&op=diff
==============================================================================
--- trunk/libio-zlib-perl/t/uncomp2.t (original)
+++ trunk/libio-zlib-perl/t/uncomp2.t Sun Dec 16 15:11:23 2007
@@ -18,7 +18,7 @@
this is a test
EOM
-$name = "test";
+$name = "test$$";
if (open(FH, ">$name")) {
binmode FH;
More information about the Pkg-perl-cvs-commits
mailing list