Bug#301265: libgimp-perl: scratches and windify plugins are also affected -> patch

[Michael Klein]

Package: libgimp-perl
Version: 2.0.dfsg-4
Followup-For: Bug #301265


Hi!

plug_in_mblur apparenly doesn't seem to handle the optional parameters 
Center X and Center Y. Adding two 0.0's at the end of each 
plug_in_mblur() makes all three plugins work again ;-)

Cheers,

-- System Information:
Debian Release: 3.1
  APT prefers testing
  APT policy: (500, 'testing')
Architecture: i386 (i686)
Kernel: Linux 2.6.8-skua
Locale: LANG=C, LC_CTYPE=de_DE (charmap=ISO-8859-1)

Versions of packages libgimp-perl depends on:
ii  gimp                        2.2.4-2      The GNU Image Manipulation Program
ii  libatk1.0-0                 1.8.0-4      The ATK accessibility toolkit
ii  libc6                       2.3.2.ds1-20 GNU C Library: Shared libraries an
ii  libgimp2.0                  2.2.4-2      Libraries necessary to run the GIM
ii  libglib2.0-0                2.6.3-1      The GLib library of C routines
ii  libgtk2-perl                1:1.080-1    Perl interface to the 2.x series o
ii  libgtk2.0-0                 2.6.2-3      The GTK+ graphical user interface 
ii  libpango1.0-0               1.8.1-1      Layout and rendering of internatio
ii  pdl                         1:2.4.2-2    perl data language: Perl extension
ii  perl                        5.8.4-8      Larry Wall's Practical Extraction 
ii  perl-base [perlapi-5.8.4]   5.8.4-8      The Pathologically Eclectic Rubbis

-- no debconf information

diff -urw orig/glowing_steel ./glowing_steel
--- orig/glowing_steel  2005-03-16 21:04:16.000000000 +0100
+++ ./glowing_steel     2005-04-15 20:43:59.460979818 +0200
@@ -196,7 +196,7 @@
 
   gimp_brightness_contrast($templ, 50, 0);
   plug_in_noisify($image, $templ, 0, 0.3, 0.3, 0.3, 0);
-  plug_in_mblur($image, $templ, 0, $length, $angle);
+  plug_in_mblur($image, $templ, 0, $length, $angle, 0.0, 0.0);
 
   # Now put it into the target layer
   gimp_selection_load($target_select);
diff -urw orig/scratches ./scratches
--- orig/scratches      2005-03-16 21:04:17.000000000 +0100
+++ ./scratches 2005-04-15 20:44:03.903346091 +0200
@@ -19,7 +19,7 @@
     $layer->add_layer(-1);
     $layer->fill (WHITE_FILL);
     $layer->noisify (0, 1, 1, 1, 0);
-    $layer->mblur (0, $length, $angle);
+    $layer->mblur (0, $length, $angle, 0.0, 0.0);
     $layer->levels (HISTOGRAM_VALUE, 120, 255, 0.3, 0, 255);
 
     $layer;
diff -urw orig/windify ./windify
--- orig/windify        2005-03-16 21:04:18.000000000 +0100
+++ ./windify   2005-04-15 20:44:08.283721208 +0200
@@ -31,7 +31,7 @@
                                                 $density/255,
                                                 $density/255,1);
 
-       plug_in_mblur($out,$windlayercopy,0,15,$angle);
+       plug_in_mblur($out,$windlayercopy,0,15,$angle, 0.0, 0.0);
        gimp_layer_set_mode($windlayercopy, 10); # Lighten Only
        gimp_image_merge_visible_layers($out,0);