[gimp-perl] Remove :auto2.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Remove :auto2.
- Date: Mon, 26 May 2014 05:28:22 +0000 (UTC)
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]