From 12e2b5c87a379eec81c5e2d80b67493689691082 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Nov 2002 19:24:03 +0000
Subject: make perl_checker happy

---
 perl-install/ugtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/ugtk.pm')

diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 93001beb6..fac3e1646 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -818,7 +818,7 @@ sub gtkcreate_png {
 
 sub compose_pixbufs {
     my ($pixbuf, $back_pixbuf_unaltered, $alpha_threshold) = @_;
-    $alpha_threshold = 255 unless $alpha_threshold;
+    $alpha_threshold ||= 255;
     my ($width, $height) = ($pixbuf->get_height, $pixbuf->get_width);
     my $back_pixbuf = Gtk::Gdk::Pixbuf->new('rgb', 0, 8, $height, $width);
 
-- 
cgit v1.2.1