From 254e8e965f0d8eb771e6cc37e700b6ffa3cbd83b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 17 Dec 2012 02:50:58 +0000
Subject: (register_main_window) perl_checker cleanup

---
 perl-install/mygtk2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/mygtk2.pm')

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index f8f13c733..9aa95a462 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -1468,7 +1468,7 @@ sub sync_flush {
 
 sub register_main_window {
     my ($w) = @_;
-    push @::main_windows, $::main_window = $w
+    push @::main_windows, $::main_window = $w;
 }
 
 sub may_destroy {
-- 
cgit v1.2.1