summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-04-01 15:47:33 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-04-01 15:47:33 +0000
commit741db4cc5a352ad96916025959280e0d53e6c4a6 (patch)
treefc64d5e91d3ea101224a0400f5a9dce9828db2b3 /perl-install
parentd631ff21af34dfe4da843fb7153ddb1fbe7af7bc (diff)
downloaddrakx-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-xperl-install/standalone/logdrake6
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()
)
);