diff options
| -rw-r--r-- | perl-install/mygtk2.pm | 4 |
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); } |