summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-08 02:22:24 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:16 +0100
commita1bbe9f424c406f745173ae6ebfe6f9d03f0093b (patch)
tree9f4368f299ee9acf07041ab6e961c918d8ddab25 /perl-install
parente33461f6d781c07c325db3a6d502f533d84ff095 (diff)
downloaddrakx-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.pm8
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);
}
}