diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-12-12 15:25:10 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-12-12 15:29:21 +0100 |
| commit | 0e7e62b0248fc6ed4c3363fe76ba29f6a9274c10 (patch) | |
| tree | b502538217619e00c9044037a0cf5f9a2c1e4a5b /perl-install/mygtk3.pm | |
| parent | ea1908ab2c9e4b9eedf1dfbfb0449bc049ecdcb8 (diff) | |
| download | drakx-0e7e62b0248fc6ed4c3363fe76ba29f6a9274c10.tar drakx-0e7e62b0248fc6ed4c3363fe76ba29f6a9274c10.tar.gz drakx-0e7e62b0248fc6ed4c3363fe76ba29f6a9274c10.tar.bz2 drakx-0e7e62b0248fc6ed4c3363fe76ba29f6a9274c10.tar.xz drakx-0e7e62b0248fc6ed4c3363fe76ba29f6a9274c10.zip | |
guard against ref to ref (eg: int64(0) vs 0)
b/c ref(0) triggers "||=0" which would make the next commit to fail
badly (mga#19895)
Diffstat (limited to 'perl-install/mygtk3.pm')
| -rw-r--r-- | perl-install/mygtk3.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index 94b8577f6..de92943f2 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -312,7 +312,8 @@ sub _gtk__ProgressBar { } if (my $fraction_ref = delete $opts->{fraction_ref}) { - $$fraction_ref ||= 0; + # guard for ref to ref (eg: int64(0) vs 0): + $$fraction_ref = 0 if !defined($$fraction_ref); my $set = sub { $w->set_fraction($$fraction_ref) }; gtkval_register($w, $fraction_ref, $set); $set->(); |