CS fixes

i-MSCP · May 3, 2017 · 8f2bebf · 8f2bebf
1 parent 1342628
commit 8f2bebf
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 12 deletions.
diff --git a/engine/PerlLib/iMSCP/Provider/Service/Debian/Sysvinit.pm b/engine/PerlLib/iMSCP/Provider/Service/Debian/Sysvinit.pm
@@ -28,7 +28,7 @@ use warnings;
 use parent 'iMSCP::Provider::Service::Sysvinit';
 
 # Commands used in that package
-my %COMMANDS = (
+our %COMMANDS = (
     'invoke-rc.d' => '/usr/sbin/invoke-rc.d',
     'update-rc.d' => '/usr/sbin/update-rc.d'
 );

diff --git a/engine/PerlLib/iMSCP/Provider/Service/Systemd.pm b/engine/PerlLib/iMSCP/Provider/Service/Systemd.pm
@@ -30,7 +30,7 @@ use iMSCP::File;
 use parent 'iMSCP::Provider::Service::Sysvinit';
 
 # Commands used in that package
-my %COMMANDS = (
+our %COMMANDS = (
     systemctl => '/bin/systemctl'
 );
 

diff --git a/engine/PerlLib/iMSCP/Provider/Service/Upstart.pm b/engine/PerlLib/iMSCP/Provider/Service/Upstart.pm
@@ -32,17 +32,8 @@ use iMSCP::File;
 use version;
 use parent 'iMSCP::Provider::Service::Sysvinit';
 
-# Operate against system upstart, not session (see See IP-1514)
-delete $ENV{'UPSTART_SESSION'};
-
-# Private variables
-my $UPSTART_VERSION;
-my $START_ON = qr/^\s*start\s+on/;
-my $COMMENTED_START_ON = qr/^\s*#+\s*start\s+on/;
-my $MANUAL = qr/^\s*manual\s*/m;
-
 # Commands used in that package
-my %COMMANDS = (
+our %COMMANDS = (
     start   => '/sbin/start',
     stop    => '/sbin/stop',
     restart => '/sbin/restart',
@@ -51,9 +42,18 @@ my %COMMANDS = (
     initctl => '/sbin/initctl'
 );
 
+# Private variables
+my $UPSTART_VERSION;
+my $START_ON = qr/^\s*start\s+on/;
+my $COMMENTED_START_ON = qr/^\s*#+\s*start\s+on/;
+my $MANUAL = qr/^\s*manual\s*/m;
+
 # Paths where job files must be searched
 my @JOBFILEPATHS = ( '/etc/init' );
 
+# Operate against system upstart, not session (see See IP-1514)
+delete $ENV{'UPSTART_SESSION'};
+
 =head1 DESCRIPTION
 
  Base service provider for `upstart' jobs.