[gimp-perl] Release tidy-up.

[Ed J <edj src gnome org>]

commit 5f699510bd4c1d9aa6388083831aac1b47192175
Author: Ed J <edj src gnome org>
Date:   Sat May 24 17:39:22 2014 +0100

    Release tidy-up.

 Gimp.pm           |    5 +++--
 Gimp/Constant.pm  |    2 +-
 Gimp/Extension.pm |    2 +-
 Gimp/Fu.pm        |    2 +-
 Gimp/Lib.pm       |    2 +-
 Gimp/Pod.pm       |    2 +-
 Gimp/Util.pm      |    2 +-
 MANIFEST          |    8 ++------
 Makefile.PL       |    1 +
 Net/Net.pm        |    2 +-
 UI/UI.pm          |    2 +-
 11 files changed, 14 insertions(+), 16 deletions(-)
---
diff --git a/Gimp.pm b/Gimp.pm
index db2a2d2..61da29e 100644
--- a/Gimp.pm
+++ b/Gimp.pm
@@ -10,7 +10,7 @@ our (
 use subs qw(init end lock unlock);
 
 BEGIN {
-   $VERSION = 2.3003; # going forward: 2.xx, or 2.xx_yy for dev
+   $VERSION = 2.3004; # going forward: 2.xx, or 2.xx_yy for dev
    eval {
       require XSLoader;
       XSLoader::load Gimp $VERSION;
@@ -257,6 +257,7 @@ my %ignore_function = (DESTROY => 1);
 @PREFIXES=("gimp_", "");
 
 sub ignore_functions(@) {
+   warn "$$-IGNORING(@_)" if $Gimp::verbose;
    @ignore_function{ _}++;
 }
 
@@ -411,7 +412,7 @@ Gimp - Write GIMP extensions/plug-ins/load- and save-handlers in Perl
     );
     $image->insert_layer($bg, 1, 0);
     $image->edit_fill($bg, FOREGROUND_FILL);
-    Gimp::Display->new($image);
+    eval { Gimp::Display->new($image); };
     $image;
   };
 
diff --git a/Gimp/Constant.pm b/Gimp/Constant.pm
index 4f7a0bf..3ef7aa1 100644
--- a/Gimp/Constant.pm
+++ b/Gimp/Constant.pm
@@ -5,7 +5,7 @@ use strict qw(vars);
 our ($VERSION, @EXPORT, @PARAMS, @INXS);
 
 BEGIN {
-   $VERSION = 2.3003;
+   $VERSION = 2.3004;
 # XS code in Gimp.xs... for now
 #   eval {
 #      require XSLoader;
diff --git a/Gimp/Extension.pm b/Gimp/Extension.pm
index 5b3e196..f022129 100644
--- a/Gimp/Extension.pm
+++ b/Gimp/Extension.pm
@@ -12,7 +12,7 @@ use Gtk2;
 sub __ ($) { goto &Gimp::__ }
 sub main { goto &Gimp::main; }
 
-our $VERSION = 2.3003;
+our $VERSION = 2.3004;
 our @EXPORT = qw(podregister main add_listener register_temp podregister_temp);
 
 # this is to avoid warnings from importing main etc from Gimp::Fu AND here
diff --git a/Gimp/Fu.pm b/Gimp/Fu.pm
index c607f84..35f4a6f 100644
--- a/Gimp/Fu.pm
+++ b/Gimp/Fu.pm
@@ -11,7 +11,7 @@ use FindBin qw($RealBin $RealScript);
 use File::stat;
 
 our $run_mode;
-our $VERSION = 2.3003;
+our $VERSION = 2.3004;
 
 # manual import
 sub __ ($) { goto &Gimp::__ }
diff --git a/Gimp/Lib.pm b/Gimp/Lib.pm
index 627eb53..60118a2 100644
--- a/Gimp/Lib.pm
+++ b/Gimp/Lib.pm
@@ -5,7 +5,7 @@ use warnings;
 use vars qw($VERSION @ISA);
 
 BEGIN {
-   $VERSION = 2.3003;
+   $VERSION = 2.3004;
    require XSLoader;
    XSLoader::load Gimp::Lib $VERSION;
    warn "$$-Loading ".__PACKAGE__ if $Gimp::verbose;
diff --git a/Gimp/Pod.pm b/Gimp/Pod.pm
index 769179c..fe8dc88 100644
--- a/Gimp/Pod.pm
+++ b/Gimp/Pod.pm
@@ -10,7 +10,7 @@ use base 'Exporter';
 use Pod::Simple::SimpleTree;
 
 our @EXPORT = qw(fixup_args make_arg_line);
-our $VERSION = 2.3003;
+our $VERSION = 2.3004;
 
 warn "$$-Loading ".__PACKAGE__ if $Gimp::verbose;
 
diff --git a/Gimp/Util.pm b/Gimp/Util.pm
index 701474b..62e806d 100644
--- a/Gimp/Util.pm
+++ b/Gimp/Util.pm
@@ -14,7 +14,7 @@ our @EXPORT_OK = qw(
 
 sub __ ($); # declare - defined in Gimp
 
-our $VERSION = 2.3003;
+our $VERSION = 2.3004;
 
 sub get_state() {
    [
diff --git a/MANIFEST b/MANIFEST
index 78df5ff..9eb8aea 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -35,9 +35,10 @@ UI/UI.xs
 config.pl
 examples/Makefile.PL
 examples/Perl-Server
+examples/Perl-Console
 examples/animate_cells
+examples/autosave2
 examples/billboard
-examples/blended2
 examples/blowinout
 examples/bricks
 examples/burst
@@ -48,7 +49,6 @@ examples/ditherize
 examples/dots
 examples/dust
 examples/example-extension
-examples/example-extension-tester
 examples/example-extension-no-fu
 examples/example-fu
 examples/example-net
@@ -79,14 +79,12 @@ examples/randomblends
 examples/README
 examples/redeye
 examples/repdup
-examples/roundsel
 examples/scratches
 examples/selective_sharpen
 examples/sethspin
 examples/stampify
 examples/stamps
 examples/tex-to-float
-examples/translogo
 examples/triangle
 examples/view3d
 examples/warp-sharp
@@ -122,7 +120,6 @@ po/nl.po
 po/no.po
 po/oc.po
 po/pl.po
-po/pm_to_blib
 po/POTFILES.in
 po/pt_BR.po
 po/pt.po
@@ -144,7 +141,6 @@ t/gimppod.t
 t/gimpsetup.pl
 t/import.t
 t/load.t
-t/loadlib.t
 t/netplugin.t
 t/pdl.t
 t/perlplugin.t
diff --git a/Makefile.PL b/Makefile.PL
index 85c241b..f3549ff 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -4,6 +4,7 @@ use Data::Dumper qw(Dumper);
 use ExtUtils::MakeMaker;
 use IO::All;
 
+our %cfg;
 require './config.pl';
 
 sub MY::postamble {
diff --git a/Net/Net.pm b/Net/Net.pm
index b2edb38..6a6203f 100644
--- a/Net/Net.pm
+++ b/Net/Net.pm
@@ -33,7 +33,7 @@ use IO::Socket;
 use Carp 'croak';
 use Fcntl qw(F_SETFD);
 
-$VERSION = 2.3003;
+$VERSION = 2.3004;
 bootstrap Gimp::Net $VERSION;
 
 my $PROTOCOL_VERSION = 5; # protocol version
diff --git a/UI/UI.pm b/UI/UI.pm
index 82edf0a..67987e7 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -10,7 +10,7 @@ use warnings;
 
 our (@ISA, $VERSION);
 BEGIN {
-   $VERSION = 2.3003;
+   $VERSION = 2.3004;
    eval {
       require XSLoader;
       XSLoader::load Gimp::UI $VERSION;