[gimp-perl] Handle undef better in Gimp::UI.

[Ed J <edj src gnome org>]

commit 68675527055f5501ef3a90cc4de7449cfd0524ae
Author: Ed J <edj src gnome org>
Date:   Fri Jun 20 03:22:35 2014 +0100

    Handle undef better in Gimp::UI.

 UI/UI.pm |    8 ++------
 1 files changed, 2 insertions(+), 6 deletions(-)
---
diff --git a/UI/UI.pm b/UI/UI.pm
index 96782dc..c2077ef 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -48,11 +48,7 @@ package Gimp::UI::Combo;
 use Gimp ('__');
 our @ISA = 'Gtk2::ComboBox';
 
-sub image_name {
-   my $name = $_[0]->get_filename;
-   $name = "Untitled-".${$_[0]} if $name eq "";
-   $name;
-}
+sub image_name { $_[0]->get_filename || "Untitled-".${$_[0]}; }
 
 sub Gimp::UI::Combo::Image::_items {
   +{ map { (image_name($_) => $_) } Gimp::Image->list }
@@ -441,7 +437,7 @@ my %PF2INFO = (
     my ($a, $s, $g);
     if ($Gimp::interface_pkg ne 'Gimp::Net') {
       $a = new Gimp::UI::FontSelectButton $desc, $default;
-      $s = sub { $a->set_font($_[0]) };
+      $s = sub { $a->set_font($_[0] || 'Arial') };
       $g = sub { $a->get_font };
 #      _instrument($a);
     } else {