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