diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-01 15:47:33 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-01 15:47:33 +0000 |
commit | 741db4cc5a352ad96916025959280e0d53e6c4a6 (patch) | |
tree | fc64d5e91d3ea101224a0400f5a9dce9828db2b3 /perl-install | |
parent | d631ff21af34dfe4da843fb7153ddb1fbe7af7bc (diff) | |
download | drakx-backup-do-not-use-741db4cc5a352ad96916025959280e0d53e6c4a6.tar drakx-backup-do-not-use-741db4cc5a352ad96916025959280e0d53e6c4a6.tar.gz drakx-backup-do-not-use-741db4cc5a352ad96916025959280e0d53e6c4a6.tar.bz2 drakx-backup-do-not-use-741db4cc5a352ad96916025959280e0d53e6c4a6.tar.xz drakx-backup-do-not-use-741db4cc5a352ad96916025959280e0d53e6c4a6.zip |
(parse_file) pass explicit argument instead of relying on lexical $_
being correct in that context (worked fine but this is bad)
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/logdrake | 6 |
1 files changed, 3 insertions, 3 deletions
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() ) ); |