diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-08 02:22:24 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:16 +0100 |
| commit | a1bbe9f424c406f745173ae6ebfe6f9d03f0093b (patch) | |
| tree | 9f4368f299ee9acf07041ab6e961c918d8ddab25 /perl-install | |
| parent | e33461f6d781c07c325db3a6d502f533d84ff095 (diff) | |
| download | drakx-a1bbe9f424c406f745173ae6ebfe6f9d03f0093b.tar drakx-a1bbe9f424c406f745173ae6ebfe6f9d03f0093b.tar.gz drakx-a1bbe9f424c406f745173ae6ebfe6f9d03f0093b.tar.bz2 drakx-a1bbe9f424c406f745173ae6ebfe6f9d03f0093b.tar.xz drakx-a1bbe9f424c406f745173ae6ebfe6f9d03f0093b.zip | |
fix $model->iter_next($iter) usage with Gtk3
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk3.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 9499e8c56..20e19bac7 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -241,8 +241,9 @@ sub gtktreeview_children { my ($model, $iter) = @_; my @l; $model or return; - for (my $p = $model->iter_children($iter); $p; $p = $model->iter_next($p)) { - push @l, $p; + my $p = $model->iter_children($iter); + while ($model->iter_next($p)) { + push @l, $p->copy; } @l; } @@ -1273,7 +1274,8 @@ sub get_path_str { sub iter_each_children { my ($model, $iter, $f) = @_; - for (my $child = $model->iter_children($iter); $child; $child = $model->iter_next($child)) { + my $child = $model->iter_children($iter); + while ($child = $model->iter_next($child)) { $f->($child); } } |