r27326 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Nov 27 08:33:57 2008
New Revision: 27326

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27326
Log:
AptContents: support uncompressed contents files

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27326&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Nov 27 08:33:57 2008
@@ -178,7 +178,9 @@
         for ( @{ $self->contents_files } ) {
             push @{ $cache->{contents_files} }, $_;
             warn "Parsing $_ ...\n";
-            my $f         = IO::Uncompress::Gunzip->new($_);
+            my $f = /\.gz$/
+                ? IO::Uncompress::Gunzip->new($_)
+                : IO::File->new( $_, 'r' );
 
             unless ($f) {
                 warn "Error reading '$_': $!\n";