summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-26 09:54:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-26 09:54:37 +0000
commit564d7aafd371541c042772fbc0aa16ca204005b5 (patch)
tree94afaea43ef2ed5ab58b8e327c4b6a5d6d679ef1 /perl-install
parent5dafb7f993d94cf570d5f8e7de99d55a67361a3b (diff)
downloaddrakx-564d7aafd371541c042772fbc0aa16ca204005b5.tar
drakx-564d7aafd371541c042772fbc0aa16ca204005b5.tar.gz
drakx-564d7aafd371541c042772fbc0aa16ca204005b5.tar.bz2
drakx-564d7aafd371541c042772fbc0aa16ca204005b5.tar.xz
drakx-564d7aafd371541c042772fbc0aa16ca204005b5.zip
fix return value of method calls on MagicWindow
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm5
1 files changed, 3 insertions, 2 deletions
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 {