[gimp-perl] If temp proc no params, don't get from top-level!

[Ed J <edj src gnome org>]

commit 5d4591343c6b471511f35eee8e47640c0e35e4c7
Author: Ed J <edj src gnome org>
Date:   Thu May 22 08:34:06 2014 +0100

    If temp proc no params, don't get from top-level!

 Gimp/Extension.pm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/Gimp/Extension.pm b/Gimp/Extension.pm
index 2a956ff..5b3e196 100644
--- a/Gimp/Extension.pm
+++ b/Gimp/Extension.pm
@@ -84,7 +84,8 @@ sub podregister_temp {
    my $tparams =  $pod->section($TP, $t, 'PARAMETERS');
    my $tretvals =  $pod->section($TP, $t, 'RETURN VALUES');
    ($tfunction, $tmenupath, $timagetypes, $tparams, $tretvals) = (fixup_args(
-      $tfunction, ('fake') x 5, $tmenupath, $timagetypes, $tparams, $tretvals, 1
+      $tfunction, ('fake') x 5, $tmenupath, $timagetypes,
+      ($tparams || '#'), ($tretvals || '#'), 1
    ))[0, 6..9];
    push @temp_procs, [
       $tfunction, $tblurb, $thelp, $tmenupath, $timagetypes,