fix prefix usage

1 files changed, 12 insertions, 15 deletions

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 9d5809f9b..c4a2399e3 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -288,46 +288,43 @@ sub services {
 
 # the following functions are mostly by printer related modules
 
-#-if we are in an DrakX config
-our $prefix = "";
-
 
 sub restart ($) {
     my ($service) = @_;
     # Exit silently if the service is not installed
-    return 1 if !(-x "$prefix/etc/rc.d/init.d/$service");
-    run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "restart");
+    return 1 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+    run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "restart");
 }
 
 sub start ($) {
     my ($service) = @_;
     # Exit silently if the service is not installed
-    return 1 if !(-x "$prefix/etc/rc.d/init.d/$service");
-    run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "start");
+    return 1 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+    run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "start");
     return (($? >> 8) != 0) ? 0 : 1;
 }
 
 sub start_not_running_service ($) {
     my ($service) = @_;
     # Exit silently if the service is not installed
-    return 1 if !(-x "$prefix/etc/rc.d/init.d/$service");
-    run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "status");
+    return 1 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+    run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "status");
     return (($? >> 8) != 0) ? 0 : 1;
 }
 
 sub stop ($) {
     my ($service) = @_;
     # Exit silently if the service is not installed
-    return 1 if !(-x "$prefix/etc/rc.d/init.d/$service");
-    run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "stop");
+    return 1 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+    run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "stop");
     return (($? >> 8) != 0) ? 0 : 1;
 }
 
 sub is_service_running ($) {
     my ($service) = @_;
     # Exit silently if the service is not installed
-    return 0 if !(-x "$prefix/etc/rc.d/init.d/$service");
-    run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "status");
+    return 0 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+    run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "status");
     # The exit status is not zero when the service is not running
     return (($? >> 8) != 0) ? 0 : 1;
 }
@@ -335,7 +332,7 @@ sub is_service_running ($) {
 sub starts_on_boot ($) {
     my ($service) = @_;
     local *F; 
-    open F, ($::testing ? $prefix : "chroot $prefix/ ") . 
+    open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
 	"/bin/sh -c \"export LC_ALL=C; /sbin/chkconfig --list $service 2>&1\" |" or
 	    return 0;
     while (my $line = <F>) {
@@ -351,7 +348,7 @@ sub starts_on_boot ($) {
 
 sub start_service_on_boot ($) {
     my ($service) = @_;
-    run_program::rooted($prefix, "/sbin/chkconfig", "--add", $service)
+    run_program::rooted($::prefix, "/sbin/chkconfig", "--add", $service)
 	or return 0;
     return 1;
 }