From 564d7aafd371541c042772fbc0aa16ca204005b5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 26 Jan 2005 09:54:37 +0000
Subject: fix return value of method calls on MagicWindow

---
 perl-install/mygtk2.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 761998b98..a081ff6a0 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -622,7 +622,7 @@ sub mygtk2::MagicWindow::AUTOLOAD {
 
     my ($meth) = $mygtk2::MagicWindow::AUTOLOAD =~ /mygtk2::MagicWindow::(.*)/;
 
-    my @s = $meth eq 'show'
+    my ($s1, $s2) = $meth eq 'show'
               ? ('real_window', 'child') :
             $w->{pop_it} && ($meth eq 'destroy' || $meth eq 'hide') ||
 	    $for_real_window{$meth} ||
@@ -632,7 +632,8 @@ sub mygtk2::MagicWindow::AUTOLOAD {
 
 #-    warn "mygtk2::MagicWindow::$meth", first($w =~ /HASH(.*)/), " on $s (@args)\n";
 
-    $w->{$_}->$meth(@args) foreach @s;
+    $w->{$s2}->$meth(@args) if $s2;
+    $w->{$s1}->$meth(@args);
 }
 
 sub _create_Window {
-- 
cgit v1.2.1