r27349 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Nov 27 10:19:25 2008
New Revision: 27349

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27349
Log:
add --verbose option and pass it to AptContents

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=27349&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Nov 27 10:19:25 2008
@@ -481,6 +481,7 @@
 my %opts = (
     'dh' => 7, dist => '{sid,unstable}',
     'sources-list'  => '/etc/apt/sources.list',
+    verbose => 1,
 );
 
 my $mod_cpan_version;
@@ -496,7 +497,7 @@
     'install!',    'nometa',        'notest',         'pkg-perl!',
     'requiredeps', 'version=s',     'e=s',            'email=s',
     'p=s',         'packagename=s', 'refresh|R',      'dh=i',
-    'sources-list=s', 'dist=s',
+    'sources-list=s', 'dist=s', 'verbose!',
 ) or die usage_instructions();
 
 @bdepends = ( Dep->new( 'debhelper', $opts{dh} ) );
@@ -590,6 +591,7 @@
     homedir      => $homedir,
     dist         => $opts{dist},
     sources_file => $opts{'sources-list'},
+    verbose      => $opts{verbose},
 });
 
 push @depends, Dep->new('${shlib:Depends}') if $arch eq 'any';
@@ -675,6 +677,7 @@
                [ --closes ITPBUG ] [ --packagename|-p PACKAGENAME ]
                [ --email|-e EMAIL ] [ --pkg-perl ] [ --dh <ver> ]
                [ --sources-list file ] [ --dist <pattern> ]
+               [ --[no-]verbose ]
 USAGE
 }
 
@@ -1266,7 +1269,7 @@
 
     foreach my $module ( keys(%$dep_hash) ) {
         if ( is_core_module($module) ) {
-            print "= $module is a core module\n";
+            print "= $module is a core module\n" if $opts{verbose};
 
             # TODO
             # see if there is a version requirement and if the core
@@ -1293,7 +1296,7 @@
         }
 
         if ($deb) {
-            print "+ $module found in $deb\n";
+            print "+ $module found in $deb\n" if $opts{verbose};
             if ( exists $dep_hash->{$module} ) {
                 my $v = $dep_hash->{$module};
                 $v =~ s/^v//;    # strip leading 'v' from version
@@ -2124,6 +2127,12 @@
 Example:
     dh-make-perl --dist etch
 
+=item B<--verbose> | B<--no-verbose>
+
+Print additional information while processing.
+
+Default: C<--verbose>
+
 =back
 
 =head1 DESCRIPTION