summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/mygtk2.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 84307c900..f8f52f547 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -75,12 +75,12 @@ sub gtkval_register {
delete $refs{$ref}{$w};
delete $refs{$ref} if !%{$refs{$ref}};
});
- $refs{$ref}{$w} = [ $sub, $w ];
+ push @{$refs{$ref}{$w}}, [ $sub, $w ];
}
sub gtkval_modify {
my ($ref, $val, @to_skip) = @_;
$$ref = $val;
- foreach (values %{$refs{$ref} || {}}) {
+ foreach (map { @$_ } values %{$refs{$ref} || {}}) {
my ($f, @para) = @$_;
$f->(@para) if !member($f, @to_skip);
}