summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/printerdrake.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
-rw-r--r--perl-install/printer/printerdrake.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 8bcf98951..a7273d13c 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -67,6 +67,7 @@ sub config_cups {
# Read state for auto-correction of cupsd.conf
$printer->{cupsconfig}{autocorrection} =
printer::main::get_cups_autoconf();
+ my $oldautocorr = $printer->{cupsconfig}{autocorrection};
# Human-readable strings for hosts onto which the local printers
# are shared
my $maindone;
@@ -298,8 +299,11 @@ N("192.168.100.0/255.255.255.0\n")
$retvalue = 1;
$maindone = 1;
# Write state for auto-correction of cupsd.conf
- printer::main::set_cups_autoconf
- ($printer->{cupsconfig}{autocorrection});
+ if ($oldautocorr !=
+ $printer->{cupsconfig}{autocorrection}) {
+ printer::main::set_cups_autoconf
+ ($printer->{cupsconfig}{autocorrection});
+ }
# Write cupsd.conf
printer::main::write_cups_config($printer);
printer::main::write_cupsd_conf