amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-22 01:12:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix more problems with debugging

Browse source
This commit is contained in:
Duncan Ferguson 2017-03-04 11:36:27 +00:00
parent be418fa0d0
commit 0fb0ba10c2
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/App/ClusterSSH/Base.pm
View file

@ -20,7 +20,7 @@ use Exception::Class (
use version;
our $VERSION = version->new('0.02');
my $debug_level = 4;
my $debug_level = 0;
our $language = 'en';
our $language_handle;
our $app_configuration;
@ -30,13 +30,12 @@ sub new {
my $config = {
lang => 'en',
debug => 0,
%args,
};
my $self = bless $config, $class;
$self->set_debug_level( $config->{debug} );
$self->set_debug_level( $config->{debug} ) if( $config->{debug} );
$self->set_lang( $config->{lang} );
$self->debug(