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