From 5db0c0bbf7f8c61f6c08ed19524df1f62f2f3428 Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Fri, 18 Nov 2011 10:29:15 +0000
Subject: [PATCH] Allow TEST_VERBOSE to control level of verbosity. Defaults to
 3.  'verbose' option now has precedence if set.

---
 stow.in | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/stow.in b/stow.in
index 2e3361b..c9575fd 100755
--- a/stow.in
+++ b/stow.in
@@ -264,7 +264,12 @@ sub process_options {
 sub debug {
     my ($level, $msg) = @_;
     if ($Option{'testmode'}) {
-        print "# $msg\n" if $ENV{TEST_VERBOSE};
+        $ENV{TEST_VERBOSE} = 3
+            if $ENV{TEST_VERBOSE} && $ENV{TEST_VERBOSE} !~ /^\d+$/;
+        $Option{'verbose'} = $ENV{TEST_VERBOSE}
+            if $ENV{TEST_VERBOSE} && ! $Option{'verbose'};
+        print "# $msg\n"
+            if $Option{'verbose'} >= $level;
     }
     elsif ($Option{'verbose'} >= $level) {
         warn "$msg\n";