[gimp-perl] Command-line handle PF_RADIO, no crash on Gimp::UI::export_image.



commit 72df08126ab490d493b1072cea47cb61f6813a8f
Author: Ed J <edj src gnome org>
Date:   Wed May 14 22:45:39 2014 +0100

    Command-line handle PF_RADIO, no crash on Gimp::UI::export_image.

 Gimp/Fu.pm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/Gimp/Fu.pm b/Gimp/Fu.pm
index b6a7aeb..9cff2c4 100644
--- a/Gimp/Fu.pm
+++ b/Gimp/Fu.pm
@@ -145,7 +145,7 @@ my ($latest_image, $latest_imagefile);
 
 sub string2pf($$) {
    my ($s, $type, $name, $desc) = ($_[0], @{$_[1]});
-   if($pf2info{$type}->[2]) {
+   if($pf2info{$type}->[2] or $type == PF_RADIO) {
       $s;
    } elsif($pf2info{$type}->[0] =~ /integer/) {
       die __"$s: not an integer\n" unless $s==int($s);
@@ -201,6 +201,7 @@ sub mangle_key {
 }
 
 Gimp::on_net {
+   *{Gimp::UI::export_image} = sub ($$$$) { &Gimp::EXPORT_IGNORE };
    require Getopt::Long;
    my $this = this_script;
    my(%mangleparam2index,@args);


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]