From 2117d2eac241b6aa87a923f61ca109fc714f76a4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 4 Sep 2002 16:12:21 +0000 Subject: gtkcreate_png_pixbuf() : support jpeg too for bootlook.pm --- perl-install/ugtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index 8f099e0c7..fa7ffa66a 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -752,7 +752,7 @@ sub gtkcreate_xpm { sub gtkcreate_png_pixbuf { my ($f) = shift; die 'gdk-pixbuf library is not available' unless ($use_pixbuf); - $f =~ /\.png$/ or $f .= '.png'; + $f =~ /\.(png|jpg)$/ or $f .= '.png'; if ($f !~ /^\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() } Gtk::Gdk::Pixbuf->new_from_file($f) or die "gtkcreate_png: missing png file $f"; } -- cgit v1.2.1