diff options
author | Kris Kennaway <kris@FreeBSD.org> | 2003-05-06 04:02:25 +0000 |
---|---|---|
committer | Kris Kennaway <kris@FreeBSD.org> | 2003-05-06 04:02:25 +0000 |
commit | 2b5c59d4c962c6d3cb8491ebda99b6514c1df808 (patch) | |
tree | 089e822f741bc6e4bb0acfc024f8061082e6e0d7 /graphics/p5-Gimp/files/patch-Gimp.pm | |
parent | As announced on 27 March 2003 in <20030328052350.GA18971@rot13.obsecurity.org>, (diff) |
This port depended on PDL-2.3.4 which was removed for being broken for an
extended period, so remove it as well.
Notes
Notes:
svn path=/head/; revision=80203
Diffstat (limited to 'graphics/p5-Gimp/files/patch-Gimp.pm')
-rw-r--r-- | graphics/p5-Gimp/files/patch-Gimp.pm | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/graphics/p5-Gimp/files/patch-Gimp.pm b/graphics/p5-Gimp/files/patch-Gimp.pm deleted file mode 100644 index 6b801ff63f09..000000000000 --- a/graphics/p5-Gimp/files/patch-Gimp.pm +++ /dev/null @@ -1,57 +0,0 @@ ---- Gimp.pm.orig Sat Dec 1 07:35:04 2001 -+++ Gimp.pm Wed Apr 17 10:00:58 2002 -@@ -200,6 +200,7 @@ - if ($gtk_init) { - require Gtk; -+ Gtk->set_locale; - Gtk->init; - Gtk::Rc->parse (Gimp->gtkrc); - Gtk::Gdk->set_use_xshm (Gimp->use_xshm); - Gtk::Preview->set_gamma (Gimp->gamma); -@@ -392,6 +393,7 @@ - sub callback { - my $type = shift; - my @cb; -+ my @res; - if ($type eq "-run") { - local $function = shift; - local $in_run = 1; -@@ -405,9 +407,7 @@ - ); - } - die_msg __"required callback 'run' not found\n" unless @cb; -- my @res; - for (@cb) { @res = &$_ } -- return wantarray ? @res : $res[0]; - } elsif ($type eq "-net") { - local $in_net = 1; - _initialized_callback; -@@ -420,7 +420,7 @@ - ); - } - die_msg __"required callback 'net' not found\n" unless @cb; -- for (@cb) { &$_ } -+ for (@cb) { @res = &$_ } - } elsif ($type eq "-query") { - local $in_query = 1; - _initialized_callback; -@@ -431,7 +431,7 @@ - ); - } - die_msg __"required callback 'query' not found\n" unless @cb; -- for (@cb) { &$_ } -+ for (@cb) { @res = &$_ } - } elsif ($type eq "-quit") { - local $in_quit = 1; - { -@@ -440,8 +440,9 @@ - @{$callback{quiet}}, - ); - } -- for (@cb) { &$_ } -+ for (@cb) { @res = &$_ } - } -+ return (wantarray) ? @res : $res[0]; - } - - sub register_callback($$) { |