summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-13 12:32:08 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-13 12:32:08 +0000
commitc640e13e78f7b6fd80614b108d67cb64db1021dd (patch)
tree1fa1fcee3dd46a885b445f5adff7870b3b3b4281 /perl-install/standalone
parent46604c1bfdca15d4c854efd165c6319df659dfb6 (diff)
downloaddrakx-c640e13e78f7b6fd80614b108d67cb64db1021dd.tar
drakx-c640e13e78f7b6fd80614b108d67cb64db1021dd.tar.gz
drakx-c640e13e78f7b6fd80614b108d67cb64db1021dd.tar.bz2
drakx-c640e13e78f7b6fd80614b108d67cb64db1021dd.tar.xz
drakx-c640e13e78f7b6fd80614b108d67cb64db1021dd.zip
- 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
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/logdrake5
1 files 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$//;