Debug with maximum verbosity to STDOUT when running tests.
This commit is contained in:
parent
497f272c12
commit
c26236d93c
5
stow.in
5
stow.in
|
@ -263,7 +263,10 @@ sub process_options {
|
|||
#=============================================================================
|
||||
sub debug {
|
||||
my ($level, $msg) = @_;
|
||||
if ($Option{'verbose'} >= $level) {
|
||||
if ($Option{'testmode'}) {
|
||||
print "# $msg\n" if $ENV{TEST_VERBOSE};
|
||||
}
|
||||
elsif ($Option{'verbose'} >= $level) {
|
||||
warn "$msg\n";
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue