[gimp-perl] Avoid uninit warning

[Ed J <edj src gnome org>]

commit 1a76db87a68b6ee1cef068e83ea5e9438c819d22
Author: Ed J <edj src gnome org>
Date:   Thu Nov 20 01:31:06 2014 +0000

    Avoid uninit warning

 Gimp/Fu.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/Gimp/Fu.pm b/Gimp/Fu.pm
index 5b923a2..8814821 100644
--- a/Gimp/Fu.pm
+++ b/Gimp/Fu.pm
@@ -134,7 +134,7 @@ sub find_script {
 my ($latest_image, $latest_imagefile);
 
 sub string2pf($$) {
-   my ($s, $type, $name, $desc) = ($_[0], @{$_[1]});
+   my ($s, $type, $name, $desc) = ($_[0] // '', @{$_[1]});
    if($pf2info{$type}->[2] or $type == PF_RADIO) {
       $s;
    } elsif($pf2info{$type}->[0] =~ /integer/) {