From 436d82157496aa9e025492cb77f9fd73ee42f2cb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 13 Jan 2003 09:03:49 +0000 Subject: simplify set_cups_autoconf() --- perl-install/printer/main.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'perl-install') 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 = ) { - if ($line =~ m!^[^\#]*CUPS_CONFIG=manual!) { - return 0; - } + while (my $line = ) { + return 0 if $line =~ m!^[^\#]*CUPS_CONFIG=manual!; } return 1; } -- cgit v1.2.1