diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer.pm | 7 |
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($$) { |