GNOME.org
 

[gimp-perl] Use strict and warnings everywhere.

commit 7ebdc425ff3c6dbc6aa9148ca248e96d11a7ccdf
Author: Ed J <edj src gnome org>
Date:   Sat May 24 00:17:35 2014 +0100

    Use strict and warnings everywhere.

 Gimp/Data.pm                 |    3 +++
 Gimp/Fu.pm                   |    1 +
 Gimp/Lib.pm                  |    1 +
 Gimp/Pod.pm                  |    1 +
 Net/Net.pm                   |    3 ++-
 UI/UI.pm                     |    1 +
 examples/Perl-Server         |    2 +-
 examples/blended2            |    2 +-
 examples/bricks              |    2 +-
 examples/burst               |    2 +-
 examples/centerguide         |   12 +++++++-----
 examples/colorhtml           |    2 +-
 examples/dataurl             |    2 +-
 examples/ditherize           |    2 +-
 examples/dots                |    2 +-
 examples/dust                |    2 +-
 examples/example-fu          |    2 +-
 examples/example-net         |    2 +-
 examples/feedback            |    2 +-
 examples/frame_filter        |    2 +-
 examples/frame_reshuffle     |    3 +--
 examples/gallery             |    2 +-
 examples/gimp-make-img-map   |    2 +-
 examples/glowing_steel       |    2 +-
 examples/goldenmean          |    9 +--------
 examples/gouge               |    2 +-
 examples/guidegrid           |    2 +-
 examples/guides_to_selection |    4 ++--
 examples/iland               |    2 +-
 examples/image_tile          |    2 +-
 examples/innerbevel          |    2 +-
 examples/map_to_gradient     |    2 +-
 examples/mirrorsplit         |    2 +-
 examples/perlotine           |    2 +-
 examples/pixelmap            |    2 +-
 examples/prep4gif            |    2 +-
 examples/randomart1          |    4 +---
 examples/randomblends        |    2 +-
 examples/repdup              |    2 +-
 examples/roundsel            |    3 +--
 examples/scratches           |    2 +-
 examples/selective_sharpen   |    2 +-
 examples/sethspin            |    3 ++-
 examples/stampify            |    2 +-
 examples/stamps              |    2 +-
 examples/tex-to-float        |    2 +-
 examples/translogo           |    2 +-
 examples/triangle            |    2 +-
 examples/view3d              |    2 +-
 examples/warp-sharp          |    2 +-
 examples/webify              |    2 +-
 examples/windify             |    2 +-
 examples/xachlego            |    2 +-
 examples/xachshadow          |    2 +-
 examples/xachvision          |    2 +-
 examples/yinyang             |    2 +-
 t/examples-api.pl            |    2 +-
 t/pdl.t                      |    2 +-
 t/perlplugin.t               |    2 ++
 t/supplied.t                 |    2 +-
 60 files changed, 72 insertions(+), 70 deletions(-)
---
diff --git a/Gimp/Data.pm b/Gimp/Data.pm
index 4f5c0c9..eca4f68 100644
--- a/Gimp/Data.pm
+++ b/Gimp/Data.pm
@@ -1,5 +1,8 @@
 package Gimp::Data;
 
+use strict;
+use warnings;
+
 sub freeze($) {
    my $data = shift;
    if (ref $data
diff --git a/Gimp/Fu.pm b/Gimp/Fu.pm
index 5859f67..7554e61 100644
--- a/Gimp/Fu.pm
+++ b/Gimp/Fu.pm
@@ -3,6 +3,7 @@ package Gimp::Fu;
 use Gimp::Data;
 use Gimp::Pod;
 use strict;
+use warnings;
 use Carp qw(croak carp);
 use base 'Exporter';
 use Filter::Simple;
diff --git a/Gimp/Lib.pm b/Gimp/Lib.pm
index 1ffe2e1..627eb53 100644
--- a/Gimp/Lib.pm
+++ b/Gimp/Lib.pm
@@ -1,6 +1,7 @@
 package Gimp::Lib;
 
 use strict;
+use warnings;
 use vars qw($VERSION @ISA);
 
 BEGIN {
diff --git a/Gimp/Pod.pm b/Gimp/Pod.pm
index 0af6e4f..769179c 100644
--- a/Gimp/Pod.pm
+++ b/Gimp/Pod.pm
@@ -3,6 +3,7 @@ package Gimp::Pod;
 use Config;
 use Carp qw(croak carp);
 use strict;
+use warnings;
 use FindBin qw($RealBin $RealScript);
 use File::Basename;
 use base 'Exporter';
diff --git a/Net/Net.pm b/Net/Net.pm
index b8a2a6a..99e0190 100644
--- a/Net/Net.pm
+++ b/Net/Net.pm
@@ -24,7 +24,8 @@ package Gimp::Net;
 
 BEGIN { warn "$$-Loading ".__PACKAGE__ if $Gimp::verbose; }
 
-use strict 'vars';
+use strict;
+use warnings;
 our $VERSION;
 use subs qw(gimp_call_procedure);
 use base qw(DynaLoader);
diff --git a/UI/UI.pm b/UI/UI.pm
index 4c08a8e..1a973bf 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -6,6 +6,7 @@ use Gtk2;
 use IO::All;
 use List::Util qw(min);
 use strict;
+use warnings;
 
 our (@ISA, $VERSION);
 BEGIN {
diff --git a/examples/Perl-Server b/examples/Perl-Server
index b822779..50ab9f2 100755
--- a/examples/Perl-Server
+++ b/examples/Perl-Server
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use strict;
 #BEGIN { $Gimp::verbose = 3; }
diff --git a/examples/blended2 b/examples/blended2
index 0fb0a7c..80305e8 100755
--- a/examples/blended2
+++ b/examples/blended2
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/bricks b/examples/bricks
index 78152c4..ed537de 100755
--- a/examples/bricks
+++ b/examples/bricks
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/burst b/examples/burst
index 7ff794d..beaae99 100755
--- a/examples/burst
+++ b/examples/burst
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/centerguide b/examples/centerguide
index 754fb4d..54a1baf 100755
--- a/examples/centerguide
+++ b/examples/centerguide
@@ -1,8 +1,4 @@
-#!/usr/bin/perl
-
-# 7/15/03 <sjburges gimp org>
-# Changed spot that its registered from <Image>/Guides to <Image>/Image/Guides
-# to reduce horizontal clutter on menubar
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
@@ -39,6 +35,12 @@ Physical center = width/2 and height/2; Optical center = the Golden Mean.
 
 *
 
+=head1 HISTORY
+
+ 7/15/03 <sjburges gimp org>
+ Changed spot that its registered from <Image>/Guides to <Image>/Image/Guides
+ to reduce horizontal clutter on menubar
+
 =head1 AUTHOR
 
 Claes G Lindblad <claesg algonet se>
diff --git a/examples/colorhtml b/examples/colorhtml
index 0f8ae8d..5ebabb8 100755
--- a/examples/colorhtml
+++ b/examples/colorhtml
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/dataurl b/examples/dataurl
index 4809ff6..5884df2 100755
--- a/examples/dataurl
+++ b/examples/dataurl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/ditherize b/examples/ditherize
index ba091f1..b828580 100755
--- a/examples/ditherize
+++ b/examples/ditherize
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use strict;
 use Gimp;
diff --git a/examples/dots b/examples/dots
index 7714084..47d0b23 100755
--- a/examples/dots
+++ b/examples/dots
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 #BEGIN { $Gimp::verbose = 1; }
 use Gimp;
diff --git a/examples/dust b/examples/dust
index 615e21e..d5cf70c 100755
--- a/examples/dust
+++ b/examples/dust
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/example-fu b/examples/example-fu
index aa2a1e7..8a8b11f 100755
--- a/examples/example-fu
+++ b/examples/example-fu
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use strict;
 use Gimp;
diff --git a/examples/example-net b/examples/example-net
index 2273cb3..d0c4573 100755
--- a/examples/example-net
+++ b/examples/example-net
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 
diff --git a/examples/feedback b/examples/feedback
index 0a38aca..f939d85 100755
--- a/examples/feedback
+++ b/examples/feedback
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/frame_filter b/examples/frame_filter
index e61fe45..a8e7ad7 100755
--- a/examples/frame_filter
+++ b/examples/frame_filter
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/frame_reshuffle b/examples/frame_reshuffle
index 8119447..71529c7 100755
--- a/examples/frame_reshuffle
+++ b/examples/frame_reshuffle
@@ -1,11 +1,10 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
 use strict;
 
 podregister {
-  my($image,$drawable,$function,$custom) = @_;
   $custom = "-i"            if $function == 1;
   $custom = "(i+$custom)%n" if $function == 2;
   my @layers = $image->get_layers;
diff --git a/examples/gallery b/examples/gallery
index 7986377..c3449a7 100755
--- a/examples/gallery
+++ b/examples/gallery
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/gimp-make-img-map b/examples/gimp-make-img-map
index adca754..1ebc0f1 100755
--- a/examples/gimp-make-img-map
+++ b/examples/gimp-make-img-map
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 BEGIN {
   # Defaults
diff --git a/examples/glowing_steel b/examples/glowing_steel
index 263b07f..724c40e 100755
--- a/examples/glowing_steel
+++ b/examples/glowing_steel
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto N_);
 use Gimp::Fu;
diff --git a/examples/goldenmean b/examples/goldenmean
index cda88fc..1a2a3a8 100755
--- a/examples/goldenmean
+++ b/examples/goldenmean
@@ -1,30 +1,23 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
 
 podregister {
-  my ($short, $type) = @_;
-
   $long = int(($short * 1.618) + 0.5);
-
   $width = $short;
   $height = $long;
-
   if ($type == 1) {
     $width = $long;
     $height = $short;
   }
-
   $img = gimp_image_new($width, $height, RGB);
   $layer = gimp_layer_new($img, $width, $height, RGB_IMAGE, "Layer 1", 100, NORMAL_MODE);
-
   gimp_image_insert_layer($layer, 0, -1);
   Gimp::Context->push();
   $layer->gimp_edit_fill(BACKGROUND_FILL);
   Gimp::Context->pop();
   Gimp::Display->new($img);
-
   return $img;
 };
 
diff --git a/examples/gouge b/examples/gouge
index e0588ca..01fdf17 100755
--- a/examples/gouge
+++ b/examples/gouge
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/guidegrid b/examples/guidegrid
index 181bdec..a8f1eb6 100755
--- a/examples/guidegrid
+++ b/examples/guidegrid
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/guides_to_selection b/examples/guides_to_selection
index 90ebce0..9c6f4a6 100755
--- a/examples/guides_to_selection
+++ b/examples/guides_to_selection
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
@@ -14,7 +14,7 @@ podregister {
     my ($x,$y,$w,$h);
     $x = $image->get_guide_position($i);
     if ($image->get_guide_orientation($i) == ORIENTATION_HORIZONTAL) {
-      ($x,$y,$w,$h) = (0,$x-$w,$W,1);
+      ($x,$y,$w,$h) = (0,$x-($w//0),$W,1);
     } else {
       ($x,$y,$w,$h) = ($x,0,1,$H);
     }
diff --git a/examples/iland b/examples/iland
index 86e4c93..8d100f9 100755
--- a/examples/iland
+++ b/examples/iland
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 # 02/06/2001
 # V1.0
diff --git a/examples/image_tile b/examples/image_tile
index bcf032c..62344db 100755
--- a/examples/image_tile
+++ b/examples/image_tile
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/innerbevel b/examples/innerbevel
index 07314af..ad3cf1e 100755
--- a/examples/innerbevel
+++ b/examples/innerbevel
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/map_to_gradient b/examples/map_to_gradient
index 4643b8b..1929357 100755
--- a/examples/map_to_gradient
+++ b/examples/map_to_gradient
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/mirrorsplit b/examples/mirrorsplit
index f8c4484..3228915 100755
--- a/examples/mirrorsplit
+++ b/examples/mirrorsplit
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/perlotine b/examples/perlotine
index a16d937..ca99565 100755
--- a/examples/perlotine
+++ b/examples/perlotine
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use File::Path;
 use Gimp;
diff --git a/examples/pixelmap b/examples/pixelmap
index 15eecde..bc076b8 100755
--- a/examples/pixelmap
+++ b/examples/pixelmap
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/prep4gif b/examples/prep4gif
index fcb95f4..36a192d 100755
--- a/examples/prep4gif
+++ b/examples/prep4gif
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto N_ __);
 use Gimp::Fu;
diff --git a/examples/randomart1 b/examples/randomart1
index 2abfd94..1829fb0 100755
--- a/examples/randomart1
+++ b/examples/randomart1
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
@@ -7,8 +7,6 @@ use Gimp::Fu;
 use constant PIx2 => 8 * atan2 1,1;
 
 podregister {
-   # Die Parameter werden ganz "normal" �bergeben:
-   my ($width,$height,$num_poly,$edges,$revolutions,$feather,$super)= _;
    Gimp::Context->push();
 
    # Erzeuge ein neues Bild
diff --git a/examples/randomblends b/examples/randomblends
index d2dcc83..8c2082d 100755
--- a/examples/randomblends
+++ b/examples/randomblends
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/repdup b/examples/repdup
index 1d61a34..32eacd2 100755
--- a/examples/repdup
+++ b/examples/repdup
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/roundsel b/examples/roundsel
index d2fab10..2b4862a 100755
--- a/examples/roundsel
+++ b/examples/roundsel
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 # Use gaussian blur and levels to round selection corners
 
@@ -7,7 +7,6 @@ use Gimp::Fu;
 use Gimp::Util;
 
 podregister {
-  my($image,$drawable,$round) = @_;
   $image->undo_group_start;
   my $channel = gimp_selection_save($image);
   gimp_selection_none($image);
diff --git a/examples/scratches b/examples/scratches
index 0de674e..66205ab 100755
--- a/examples/scratches
+++ b/examples/scratches
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/selective_sharpen b/examples/selective_sharpen
index dd44978..f3694b1 100755
--- a/examples/selective_sharpen
+++ b/examples/selective_sharpen
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/sethspin b/examples/sethspin
index 0fff41e..dc1342e 100755
--- a/examples/sethspin
+++ b/examples/sethspin
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use constant { PI => 3.14159 };
 use Gimp;
@@ -6,6 +6,7 @@ use Gimp::Fu;
 use Gimp::Util;
 use List::Util qw(max);
 use strict;
+#$Gimp::verbose = 3;
 
 sub saw {  # a sawtooth function on PI
   my ($val) = @_;
diff --git a/examples/stampify b/examples/stampify
index 94ec940..4d7d092 100755
--- a/examples/stampify
+++ b/examples/stampify
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/stamps b/examples/stamps
index 40484f1..10545c7 100755
--- a/examples/stamps
+++ b/examples/stamps
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/tex-to-float b/examples/tex-to-float
index a5273ac..f78fab9 100755
--- a/examples/tex-to-float
+++ b/examples/tex-to-float
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto N_);
 use Gimp::Fu;
diff --git a/examples/translogo b/examples/translogo
index 5e69bc9..64ba749 100755
--- a/examples/translogo
+++ b/examples/translogo
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/triangle b/examples/triangle
index 9edf5bb..d06fd36 100755
--- a/examples/triangle
+++ b/examples/triangle
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/view3d b/examples/view3d
index 453088b..30344ee 100755
--- a/examples/view3d
+++ b/examples/view3d
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/warp-sharp b/examples/warp-sharp
index 9ef4995..3c66b3b 100755
--- a/examples/warp-sharp
+++ b/examples/warp-sharp
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto);
 use Gimp::Fu;
diff --git a/examples/webify b/examples/webify
index e9b8725..60276a6 100755
--- a/examples/webify
+++ b/examples/webify
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/windify b/examples/windify
index a6271c9..29611b4 100755
--- a/examples/windify
+++ b/examples/windify
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/xachlego b/examples/xachlego
index aadc0bc..a4771ee 100755
--- a/examples/xachlego
+++ b/examples/xachlego
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp qw(:auto __ N_);
 use Gimp::Fu;
diff --git a/examples/xachshadow b/examples/xachshadow
index c865fc5..8340470 100755
--- a/examples/xachshadow
+++ b/examples/xachshadow
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/xachvision b/examples/xachvision
index 4391103..85ca99e 100755
--- a/examples/xachvision
+++ b/examples/xachvision
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/examples/yinyang b/examples/yinyang
index 1a3a165..6a4f6e3 100755
--- a/examples/yinyang
+++ b/examples/yinyang
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use Gimp;
 use Gimp::Fu;
diff --git a/t/examples-api.pl b/t/examples-api.pl
index 5459080..8513cfa 100644
--- a/t/examples-api.pl
+++ b/t/examples-api.pl
@@ -50,7 +50,7 @@ our @testbench = (
 ["guide_to_selection"  , 1, REQ_GUIDE, [CHANNEL_OP_REPLACE,0,0] ],
 ["highlight_edges"     , 1, REQ_ALPHA, [ 10] ],
 ["inner_bevel"         , 0, REQ_NONE , ["URW Bookman L, Bold",80,"INNERBEVEL",$color1,$color2,132,30,7,2] ],
-["layer_apply"         , 1, REQ_NONE , ['$d->gauss_rle($P*100+1,1,1)',""] ],
+["layer_apply"         , 1, REQ_NONE , ['$d->gauss_rle($P*100+1,1,1)',0] ],
 ["layer_reorder"       , 3, REQ_ALPHA, [1,""] ],
 ["make_bevel_logos"    , 1, REQ_ALPHA, [$white,$color1,$color2,45,4,0] ],
 ["make_trans_logos"    , 1, REQ_ALPHA, [0,$gradient1,$color1] ],
diff --git a/t/pdl.t b/t/pdl.t
index ebde84c..0e1ecc4 100644
--- a/t/pdl.t
+++ b/t/pdl.t
@@ -47,7 +47,7 @@ EOF
 
   use Config;
   write_plugin($DEBUG, "test_pdl_filter", $Config{startperl}.
-    "\nBEGIN { \$Gimp::verbose = ".int($Gimp::verbose||0).'; }'.
+    " -w\nBEGIN { \$Gimp::verbose = ".int($Gimp::verbose||0).'; }'.
     <<'EOF'.$pdl_operations);
 
 use strict;
diff --git a/t/perlplugin.t b/t/perlplugin.t
index 10afb5a..14be584 100644
--- a/t/perlplugin.t
+++ b/t/perlplugin.t
@@ -11,6 +11,8 @@ BEGIN {
   write_plugin($DEBUG, $tpf_name, $Config{startperl}.
     "\nBEGIN { \$Gimp::verbose = ".int($Gimp::verbose||0).'; }'.<<'EOF');
 
+# would be -w but that triggers warnings on intentional strings instead of num
+
 use strict;
 use Gimp;
 use Gimp::Fu;
diff --git a/t/supplied.t b/t/supplied.t
index 8508a52..173a092 100644
--- a/t/supplied.t
+++ b/t/supplied.t
@@ -5,7 +5,7 @@ use strict;
 use Test::More;
 our ($dir, $DEBUG);
 BEGIN {
-#  $Gimp::verbose = 1;
+#  $Gimp::verbose = 3;
   $DEBUG = 0;
   require 't/gimpsetup.pl';
   # most minimal and elegant would be to symlink sandbox gimp-dir's
[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]