From d7c6e8b958a653501f480b1cdc02c5020306669f Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 24 Nov 1999 19:20:30 +0000
Subject: *** empty log message ***

---
 perl-install/printer.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/printer.pm')

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 3e8350d45..c414f496d 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -280,7 +280,8 @@ sub read_printer_db(;$) {
 
     %thedb and return;
 
-    local *DBPATH;		#-don't have to do close
+    local $_; #- use of while (<...
+    local *DBPATH; #- don't have to do close ... and don't modify globals at least
     open DBPATH, $dbpath or die "An error has occurred on $dbpath : $!";
 
     while (<DBPATH>) {
-- 
cgit v1.2.1