summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-09-16 22:40:55 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-09-16 22:40:55 +0000
commit3dfbfe06a0dba696baae6e1adda9438a5c0fd799 (patch)
treef14735f25a7b9250ffde272ae6da1332523cb78b /perl-install
parente9157b2e636ba709a167d586e559577df625ce06 (diff)
downloaddrakx-3dfbfe06a0dba696baae6e1adda9438a5c0fd799.tar
drakx-3dfbfe06a0dba696baae6e1adda9438a5c0fd799.tar.gz
drakx-3dfbfe06a0dba696baae6e1adda9438a5c0fd799.tar.bz2
drakx-3dfbfe06a0dba696baae6e1adda9438a5c0fd799.tar.xz
drakx-3dfbfe06a0dba696baae6e1adda9438a5c0fd799.zip
Fixed bug which prevents printerdrake from running without PDQ installed.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 92559388f..f9462c556 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -1,4 +1,5 @@
package printer;
+
# $Id$
#use diagnostics;
@@ -224,8 +225,10 @@ sub set_alternative {
sub pdq_panic_button {
my $setting = $_[0];
- run_program::rooted($prefix, "/usr/sbin/pdqpanicbutton", "--$setting")
- || die "Could not $setting PDQ panic buttons!";
+ if (-f "/usr/sbin/pdqpanicbutton") {
+ run_program::rooted($prefix, "/usr/sbin/pdqpanicbutton", "--$setting")
+ || die "Could not $setting PDQ panic buttons!";
+ }
}
sub copy_printer_params($$) {