summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
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();
}