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