summaryrefslogtreecommitdiff
path: root/graphics/p5-Gimp/files/patch-Gimp.pm
diff options
context:
space:
mode:
authorKris Kennaway <kris@FreeBSD.org>2003-05-06 04:02:25 +0000
committerKris Kennaway <kris@FreeBSD.org>2003-05-06 04:02:25 +0000
commit2b5c59d4c962c6d3cb8491ebda99b6514c1df808 (patch)
tree089e822f741bc6e4bb0acfc024f8061082e6e0d7 /graphics/p5-Gimp/files/patch-Gimp.pm
parentAs 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.pm57
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($$) {