From abfb017114bc8cc9dbabd9787c05ef4922b30196 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Tue, 12 Feb 2002 16:29:26 +0000
Subject: Added forgotten '$prefix'es.

---
 perl-install/printer.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/printer.pm')

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 9f606a686..6985a4ddd 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -126,7 +126,7 @@ sub set_permissions {
 sub restart_service ($) {
     my ($service) = @_;
     # Exit silently if the service is not installed
-    if (!(-x "/etc/rc.d/init.d/$service")) {
+    if (!(-x "$prefix/etc/rc.d/init.d/$service")) {
 	return 1;
     }
     run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "restart");
@@ -144,7 +144,7 @@ sub restart_service ($) {
 sub start_service ($) {
     my ($service) = @_;
     # Exit silently if the service is not installed
-    if (!(-x "/etc/rc.d/init.d/$service")) {
+    if (!(-x "$prefix/etc/rc.d/init.d/$service")) {
 	return 1;
     }
     run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "start");
@@ -162,7 +162,7 @@ sub start_service ($) {
 sub stop_service ($) {
     my ($service) = @_;
     # Exit silently if the service is not installed
-    if (!(-x "/etc/rc.d/init.d/$service")) {
+    if (!(-x "$prefix/etc/rc.d/init.d/$service")) {
 	return 1;
     }
     run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "stop");
-- 
cgit v1.2.1