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