summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-24 19:20:30 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-24 19:20:30 +0000
commitd7c6e8b958a653501f480b1cdc02c5020306669f (patch)
tree5320f01f21e0e2d68a2b5e5cfab4f73b17d4639d /perl-install/printer.pm
parentef80e39ba0bde1a7022c864fc092f1b6575449d8 (diff)
downloaddrakx-backup-do-not-use-d7c6e8b958a653501f480b1cdc02c5020306669f.tar
drakx-backup-do-not-use-d7c6e8b958a653501f480b1cdc02c5020306669f.tar.gz
drakx-backup-do-not-use-d7c6e8b958a653501f480b1cdc02c5020306669f.tar.bz2
drakx-backup-do-not-use-d7c6e8b958a653501f480b1cdc02c5020306669f.tar.xz
drakx-backup-do-not-use-d7c6e8b958a653501f480b1cdc02c5020306669f.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm3
1 files changed, 2 insertions, 1 deletions
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>) {