r27350 - /trunk/dh-make-perl/dh-make-perl

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Thu Nov 27 10:19:35 UTC 2008


Author: dmn
Date: Thu Nov 27 10:19:32 2008
New Revision: 27350

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27350
Log:
also silence CPAN stuff when not --verbose

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=27350&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Nov 27 10:19:32 2008
@@ -710,7 +710,7 @@
         $opts{cpan} =~ s![/-]!::!g;
 
 ###		require CPAN;
-        CPAN::Config->load;
+        CPAN::Config->load( be_silent => not $opts{verbose} );
 
         unshift( @{ $CPAN::Config->{'urllist'} }, $opts{'cpan-mirror'} )
             if $opts{'cpan-mirror'};
@@ -719,6 +719,8 @@
         $CPAN::Config->{'cpan_home'} = $ENV{'HOME'} . "/.cpan/";
         $CPAN::Config->{'histfile'}  = $ENV{'HOME'} . "/.cpan/history";
         $CPAN::Config->{'keep_source_where'} = $ENV{'HOME'} . "/.cpan/source";
+        $CPAN::Config->{'tar_verbosity'} = $opts{verbose} ? 'v' : '';
+        $CPAN::Config->{'load_module_verbosity'} = $opts{verbose} ? 'verbose' : 'silent';
 
         # This modification allows to retrieve all the modules that
         # match the user-provided string.




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