summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-13 09:03:49 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-13 09:03:49 +0000
commit436d82157496aa9e025492cb77f9fd73ee42f2cb (patch)
tree34651c08852b2b1d31843082d2cad5e45a1f87e1 /perl-install
parent59902287717f3b968e9e63f032d243865e0155b2 (diff)
downloaddrakx-436d82157496aa9e025492cb77f9fd73ee42f2cb.tar
drakx-436d82157496aa9e025492cb77f9fd73ee42f2cb.tar.gz
drakx-436d82157496aa9e025492cb77f9fd73ee42f2cb.tar.bz2
drakx-436d82157496aa9e025492cb77f9fd73ee42f2cb.tar.xz
drakx-436d82157496aa9e025492cb77f9fd73ee42f2cb.zip
simplify set_cups_autoconf()
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;
}