diff --git a/lib/App/ClusterSSH.pm b/lib/App/ClusterSSH.pm index 2f123cf..14f028e 100644 --- a/lib/App/ClusterSSH.pm +++ b/lib/App/ClusterSSH.pm @@ -172,9 +172,7 @@ sub exit_prog() { sub logmsg($@) { my $level = shift; - if ( $level > 6 ) { - croak('requested debug level should not be above 6'); - } + $level = 6 if ( $level > 6 ); if ( $level <= $options{debug} ) { print( strftime( "%H:%M:%S: ", localtime ) )