From 436d82157496aa9e025492cb77f9fd73ee42f2cb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
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/printer/main.pm')

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;
 }
-- 
cgit v1.2.1