From 4a4c4aead90724a76abc12fd489742336b6f3912 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 28 Nov 2013 14:58:15 +0100
Subject: factorize a variable

(needed for next commit)
---
 perl-install/standalone/logdrake | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone/logdrake')

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();
 }
-- 
cgit v1.2.1