r27330 - /trunk/dh-make-perl/dh-make-perl

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Thu Nov 27 08:34:30 UTC 2008


Author: dmn
Date: Thu Nov 27 08:34:28 2008
New Revision: 27330

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27330
Log:
say we are parsing $X after checking it is opened correctly

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=27330&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Nov 27 08:34:28 2008
@@ -171,7 +171,6 @@
         $cache->{apt_contents}   = {};
         for ( @{ $self->contents_files } ) {
             push @{ $cache->{contents_files} }, $_;
-            warn "Parsing $_ ...\n";
             my $f = /\.gz$/
                 ? IO::Uncompress::Gunzip->new($_)
                 : IO::File->new( $_, 'r' );
@@ -181,6 +180,7 @@
                 next;
             }
 
+            warn "Parsing $_ ...\n";
             my $capturing = 0;
             while ( defined( $_ = $f->getline ) ) {
                 if ($capturing) {




More information about the Pkg-perl-cvs-commits mailing list