r27461 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Nov 30 11:31:47 2008
New Revision: 27461

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27461
Log:
warnings about not found dependencies onlyy shown in verbose mode

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=27461&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Sun Nov 30 11:31:47 2008
@@ -1385,30 +1385,34 @@
 
     eval { $dep_hash = run_depends( 'Module::Depends', $dir, $build_deps ); };
     if ($@) {
-        warn '=' x 70, "\n";
-        warn "First attempt (Module::Depends) at a dependency\n"
-            . "check failed. Missing/bad META.yml?\n"
-            . "Trying again with Module::Depends::Intrusive ... \n";
-        warn '=' x 70, "\n";
+        if ($opt_verbose) {
+            warn '=' x 70, "\n";
+            warn "First attempt (Module::Depends) at a dependency\n"
+                . "check failed. Missing/bad META.yml?\n"
+                . "Trying again with Module::Depends::Intrusive ... \n";
+            warn '=' x 70, "\n";
+        }
 
         eval {
             $dep_hash = run_depends(
                 'Module::Depends::Intrusive', $dir, $build_deps );
         };
         if ($@) {
-            warn '=' x 70, "\n";
-            warn
-                "Could not find the " . ( $build_deps ? 'build-' : '' ) 
-                . "dependencies for the requested module.\n";
-            warn "Generated error: $@";
-
-            warn "Please bug the module author to provide a proper META.yml\n"
-                . "file.\n"
-                . "Automatic find of " . ( $build_deps ? 'build-' : '' )
-                . "dependencies failed. You may want to \n"
-                . "retry using the '" . ( $build_deps ? 'b' : '' )
-                . "depends' option\n";
-            warn '=' x 70, "\n";
+            if ($opt_verbose) {
+                warn '=' x 70, "\n";
+                warn
+                    "Could not find the " . ( $build_deps ? 'build-' : '' ) 
+                    . "dependencies for the requested module.\n";
+                warn "Generated error: $@";
+
+                warn "Please bug the module author to provide a proper META.yml\n"
+                    . "file.\n"
+                    . "Automatic find of " . ( $build_deps ? 'build-' : '' )
+                    . "dependencies failed. You may want to \n"
+                    . "retry using the '" . ( $build_deps ? 'b' : '' )
+                    . "depends' option\n";
+                warn '=' x 70, "\n";
+            }
         }
     }