From c640e13e78f7b6fd80614b108d67cb64db1021dd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 13 Oct 2003 12:32:08 +0000
Subject: - get rid of a perl_checker warning (thx pixel)

- this uncover the missing arg to parse_file when called from
  net_monitor, thus enabling to show up which file is currently parsed
---
 perl-install/standalone/logdrake | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 6cd68d7a1..874605ac2 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -27,6 +27,7 @@ use standalone;     #- warning, standalone must be loaded very first, for 'expla
 use common;
 use interactive;
 use ugtk2 qw(:create :dialogs :wrappers :helpers);
+use vars qw(*F);
 
 $::isInstall and die "Not supported during install.\n";
 
@@ -220,7 +221,7 @@ sub search() {
     $log_text->window->freeze_updates;
     $log_buf->set_text('');
     if ($::isFile) {
-	parse_file($::File);
+	parse_file($::File, $::File);
     } else {
 	foreach (keys %files) {
 	    parse_file($files{$_}{file}, $files{$_}{desc}) if $toggle{$_}->get_active;
@@ -231,11 +232,9 @@ sub search() {
     gtkflush();
 }
 
-local *F;
 my $timer;
 
 sub parse_file {
-  local *F = *F;
   my ($file, $descr) = @_;
 
   $file =~ s/\.gz$//;
-- 
cgit v1.2.1