summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/main.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 592843631..d65c7044b 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -654,11 +654,8 @@ sub set_cups_autoconf {
sub get_cups_autoconf {
local *F;
open F, "< $::prefix/etc/sysconfig/printing" or return 1;
- my $line;
- while ($line = <F>) {
- if ($line =~ m!^[^\#]*CUPS_CONFIG=manual!) {
- return 0;
- }
+ while (my $line = <F>) {
+ return 0 if $line =~ m!^[^\#]*CUPS_CONFIG=manual!;
}
return 1;
}