r27344 - /trunk/dh-make-perl/dh-make-perl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Thu Nov 27 09:51:34 UTC 2008
Author: dmn
Date: Thu Nov 27 09:51:32 2008
New Revision: 27344
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27344
Log:
by default parse only sid or unstable distributions
can be overriden by giving dist=>$shellglobpat to the constructor
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=27344&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Nov 27 09:51:32 2008
@@ -96,7 +96,7 @@
__PACKAGE__->mk_accessors(
qw(
cache homedir cache_file contents_dir contents_files verbose
- source sources_file
+ source sources_file dist
)
);
@@ -118,6 +118,7 @@
unless $self->contents_dir;
$self->sources_file('/etc/apt/sources.list')
unless defined( $self->sources_file );
+ $self->dist('{sid,unstable}') unless $self->dist;
$self->contents_files( $self->get_contents_file_list )
unless $self->contents_files;
$self->cache_file( catfile( $self->homedir, 'Contents.cache' ) )
@@ -198,7 +199,10 @@
my @re = $self->get_contents_filename_filters;
- my $pattern = catfile( $self->contents_dir, "*_Contents{,-$archspec}{,.gz}" );
+ my $pattern = catfile(
+ $self->contents_dir,
+ "*_". $self->dist . "_Contents{,-$archspec}{,.gz}"
+ );
my @list = glob $pattern;
More information about the Pkg-perl-cvs-commits
mailing list