summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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($$) {