amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 18:03:23 +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
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; use version;
our $VERSION = version->new('0.02'); our $VERSION = version->new('0.02');
my $debug_level = 4; my $debug_level = 0;
our $language = 'en'; our $language = 'en';
our $language_handle; our $language_handle;
our $app_configuration; our $app_configuration;
@ -30,13 +30,12 @@ sub new {
my $config = { my $config = {
lang => 'en', lang => 'en',
debug => 0,
%args, %args,
}; };
my $self = bless $config, $class; 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->set_lang( $config->{lang} );
$self->debug( $self->debug(