summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-28 14:58:15 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-28 14:58:15 +0100
commit4a4c4aead90724a76abc12fd489742336b6f3912 (patch)
treea01d2d65cd3e3b4c75051c717e1f3d1f4fc5e7ca /perl-install/standalone/logdrake
parent139725a86f58091d6a4efe312a3550bb1c35eae0 (diff)
downloaddrakx-4a4c4aead90724a76abc12fd489742336b6f3912.tar
drakx-4a4c4aead90724a76abc12fd489742336b6f3912.tar.gz
drakx-4a4c4aead90724a76abc12fd489742336b6f3912.tar.bz2
drakx-4a4c4aead90724a76abc12fd489742336b6f3912.tar.xz
drakx-4a4c4aead90724a76abc12fd489742336b6f3912.zip
factorize a variable
(needed for next commit)
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-xperl-install/standalone/logdrake7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 8ad314f0f..532cd6087 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -197,8 +197,9 @@ sub quit() { ugtk3->exit(0) }
# search functions
#-------------------------------------------------------------
sub search() {
- return if !$log_text->get_window;
- $log_text->get_window->freeze_updates;
+ my $window = $log_text->get_window;
+ return if !$window;
+ $window->freeze_updates;
$log_buf->set_text('');
if ($isFile) {
parse_file($File, $File);
@@ -207,7 +208,7 @@ sub search() {
parse_file($files{$_}{file}, $files{$_}{desc}) if $toggle{$_}->get_active;
}
}
- $log_text->get_window->thaw_updates;
+ $window->thaw_updates;
$log_text->show;
gtkflush();
}