From 741db4cc5a352ad96916025959280e0d53e6c4a6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 1 Apr 2003 15:47:33 +0000
Subject: (parse_file) pass explicit argument instead of relying on lexical $_
 being correct in that context (worked fine but this is bad)

---
 perl-install/standalone/logdrake | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone/logdrake')

diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 6a83ed901..fc0e6bd10 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -223,7 +223,7 @@ sub search {
 	parse_file($::File);
     } else {
 	foreach (keys %files) {
-	    parse_file($files{$_}{file}) if $toggle{$_}->active;
+	    parse_file($files{$_}{file}, $files{$_}{desc}) if $toggle{$_}->active;
 	}
     }
     $log_text->window->thaw_updates();
@@ -234,14 +234,14 @@ sub search {
 local *F;
 
 sub parse_file {
-  my ($file) = @_;#$_[0];
+  my ($file, $descr) = @_;;
 
   $file =~ s/\.gz$//;
   my ($pbar, $win_pb);
   unless ($::isEmbedded && $::isExplain) {
       gtkadd($win_pb = gtkset_modal(new Gtk2::Window('toplevel'), 1),
              gtkpack(new Gtk2::VBox(2,0),
-                     new Gtk2::Label(" " . N("please wait, parsing file: %s", $files{$_}{desc}) . " "),
+                     new Gtk2::Label(" " . N("please wait, parsing file: %s", $descr) . " "),
                      $pbar = new Gtk2::ProgressBar()
                      )
              );
-- 
cgit v1.2.1