[gimp-perl] Remove :auto2.



commit 6c4d738205fa93fcab4bf7b816c1622439fafe7e
Author: Ed J <edj src gnome org>
Date:   Mon May 26 06:25:40 2014 +0100

    Remove :auto2.

 Gimp.pm |   13 +------------
 1 files changed, 1 insertions(+), 12 deletions(-)
---
diff --git a/Gimp.pm b/Gimp.pm
index 61da29e..f0eb6d8 100644
--- a/Gimp.pm
+++ b/Gimp.pm
@@ -35,7 +35,6 @@ my @_procs = ('__', 'N_');
 #my @_default = (@_procs, ':consts' ,':_auto2');
 my @_default = (@_procs, ':consts');
 my @POLLUTE_CLASSES;
-my $net_init;
 
 sub import($;@) {
    no strict 'refs';
@@ -45,9 +44,9 @@ sub import($;@) {
    my @export;
 
    # make sure we can call GIMP functions - start net conn if required
+   my $net_init;
    map { $net_init = $1 if /net_init=(\S+)/; } @_;
    if ($interface_type eq "net" and not &Gimp::Net::initialized) {
-      no strict 'refs';
       map { *{"Gimp::$_"} = \&{"Gimp::Constant::$_"} }
         qw(RUN_INTERACTIVE RUN_NONINTERACTIVE);
       Gimp::Net::gimp_init(grep {defined} $net_init);
@@ -72,16 +71,6 @@ sub import($;@) {
             #*{$AUTOLOAD} = sub { Gimp->$name(@_) }; # old version
             goto &$AUTOLOAD;
          };
-      } elsif ($_ eq ":_auto2") {
-         push @export,@Gimp::Constant::EXPORT,@_procs;
-         *{"$up\::AUTOLOAD"} = sub {
-            warn __"$function: calling $AUTOLOAD without specifying the :auto import tag is deprecated!\n";
-            croak __"Cannot call '$AUTOLOAD' at this time" unless initialized();
-            my ($class,$name) = $AUTOLOAD =~ /^(.*)::(.*?)$/;
-            *{$AUTOLOAD} = sub { unshift @_, 'Gimp'; $AUTOLOAD = "Gimp::$name"; goto &AUTOLOAD };
-            #*{$AUTOLOAD} = sub { Gimp->$name(@_) }; # old version
-            goto &$AUTOLOAD;
-         };
       } elsif ($_ eq ":pollute") {
        for my $class (@POLLUTE_CLASSES) {
          push @{"$class\::ISA"}, "Gimp::$class";


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