@@ -1,4 +1,3 @@ -# $Id: Makefile.PL,v 1.4 2004/07/04 17:04:17 comdog Exp $ use ExtUtils::MakeMaker; require 5.008; @@ -11,11 +10,11 @@ WriteMakefile( 'VERSION_FROM' => 'lib/PackageDetails.pm', 'LICENSE' => 'perl', 'AUTHOR' => 'brian d foy <bdfoy@cpan.org>', - + 'PREREQ_PM' => { - 'Test::More' => '0', - 'Test::Output' => '0.10', - 'PerlIO::gzip' => '0', + 'Test::More' => '0', + 'Test::Output' => '0.10', + 'IO::Compress::Gzip' => '0', }, 'PM' => { Makefile.PL @@ -1,5 +1,3 @@ -$Id: README,v 1.1 2004/09/08 00:25:41 comdog Exp $ - You can install this using in the usual Perl fashion perl Makefile.PL README @@ -9,7 +9,7 @@ use vars qw($VERSION); use Carp; -$VERSION = '0.11_02'; +$VERSION = '0.11_03'; =head1 NAME @@ -299,10 +299,10 @@ sub read return; } - use PerlIO::gzip; - - open my($fh), "<:gzip", $file or do { - carp "Could not open $file: $!"; + require IO::Uncompress::Gunzip; + + my $fh = IO::Uncompress::Gunzip->new( $file ) or do { + carp "Could not open $file: $IO::Compress::Gunzip::GunzipError"; return; }; @@ -374,13 +374,12 @@ sub write_file carp "Missing argument!"; return; } - - use PerlIO::gzip; - - open my($fh), ">:gzip", $output_file - or do { - carp "Could not open $output_file for writing: $!"; - return; + + require IO::Compress::Gzip; + + my $fh = IO::Compress::Gzip->new( $output_file ) or do { + carp "Could not open $output_file for writing: $IO::Compress::Gzip::GzipError"; + return; }; $self->write_fh( $fh ); @@ -693,7 +692,7 @@ sub new { my %hash = ( entry_class => 'CPAN::PackageDetails::Entry', columns => [], - entries => [], + entries => [], %args ); @@ -764,7 +763,7 @@ sub as_string $entries .= $entry->as_string( $self->columns ); } - $entries; + $entries || ''; } } lib/PackageDetails.pm 66466fe3edc446df5b3fb7d98b52dfad0547ce07 brian d foy brian.d.foy@gmail.com http://github.com/briandfoy/cpan-packagedetails/commit/1d57761439c22a296b3849b1fca3fbd0653a7a81 1d57761439c22a296b3849b1fca3fbd0653a7a81 2008-10-27T12:59:49-07:00 2008-10-27T12:59:49-07:00 * PerlIO::gzip doesn't work on Windows. Damn it! That's okay; IO::Compress::Zlib handles it just fine. I just don't get the nice syntax of the IO layers, but that's a dumb reason to use PerlIO::gzip (and, the reason that I did). * If any of the as_string methods won't return anything, return the empty string instead. This is just to quash any warnings about uninitialized values. a8640e68d0ca579a8ae378a77f42b45d83d46221 brian d foy brian.d.foy@gmail.com