From 0e7e62b0248fc6ed4c3363fe76ba29f6a9274c10 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 12 Dec 2016 15:25:10 +0100
Subject: 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)
---
 perl-install/mygtk3.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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->();
-- 
cgit v1.2.1