diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-16 12:56:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-16 12:56:22 +0000 |
| commit | 6519bbb04bf178e4420ae4d0996081fa5ea4dd8c (patch) | |
| tree | 2079b1200db8e862f88f7676e4948c823c32abe2 /perl-install | |
| parent | 1fd5a7598e6dcf204b597af3cf5ec6fcc661315d (diff) | |
| download | drakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.tar drakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.tar.gz drakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.tar.bz2 drakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.tar.xz drakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.zip | |
we must allow more than one callback per ref & widget
Diffstat (limited to 'perl-install')
| -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); } |