Rearrange initialisation order

This commit is contained in:
Duncan Ferguson 2014-12-12 10:25:03 +00:00
parent fdf4d0c1dd
commit d684b077fd

View file

@ -54,10 +54,10 @@ sub new {
my $self = $class->SUPER::new(%args);
$self->{cluster} = App::ClusterSSH::Cluster->new( parent => $self, );
$self->{config} = App::ClusterSSH::Config->new( parent => $self, );
$self->{helper} = App::ClusterSSH::Helper->new( parent => $self, );
$self->{options} = App::ClusterSSH::Getopt->new( parent => $self, );
$self->{config} = App::ClusterSSH::Config->new( parent => $self, );
$self->{cluster} = App::ClusterSSH::Cluster->new( parent => $self, );
$self->{helper} = App::ClusterSSH::Helper->new( parent => $self, );
# catch and reap any zombies
$SIG{CHLD} = sub {