kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Make perl-fu can support XIM, and bump version.

Browse source
This commit is contained in:
Vanilla I. Shu 2002-04-17 02:03:33 +00:00
parent 5d54f417a0
commit 91cb1ebae8
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=57779
2 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
graphics/p5-Gimp/Makefile
View file

@ -7,7 +7,7 @@
PORTNAME= Gimp
PORTVERSION= 1.211
PORTREVISION= 0
PORTREVISION= 1
CATEGORIES= graphics perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= Gimp

20
graphics/p5-Gimp/files/patch-Gimp.pm
View file

@ -1,6 +1,14 @@
--- Gimp.pm.orig Sat Dec 1 07:35:04 2001
+++ Gimp.pm Thu Apr 11 18:01:20 2002
@@ -392,6 +392,7 @@
+++ Gimp.pm Wed Apr 17 10:00:58 2002
@@ -200,6 +200,7 @@
if ($gtk_init) {
require Gtk;
Gtk->init;
+ Gtk->set_locale;
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;
@ -8,7 +16,7 @@
if ($type eq "-run") {
local $function = shift;
local $in_run = 1;
@@ -405,9 +406,7 @@
@@ -405,9 +407,7 @@
);
}
die_msg __"required callback 'run' not found\n" unless @cb;
@ -18,7 +26,7 @@
} elsif ($type eq "-net") {
local $in_net = 1;
_initialized_callback;
@@ -420,7 +419,7 @@
@@ -420,7 +420,7 @@
);
}
die_msg __"required callback 'net' not found\n" unless @cb;
@ -27,7 +35,7 @@
} elsif ($type eq "-query") {
local $in_query = 1;
_initialized_callback;
@@ -431,7 +430,7 @@
@@ -431,7 +431,7 @@
);
}
die_msg __"required callback 'query' not found\n" unless @cb;
@ -36,7 +44,7 @@
} elsif ($type eq "-quit") {
local $in_quit = 1;
{
@@ -440,8 +439,9 @@
@@ -440,8 +440,9 @@
@{$callback{quiet}},
);
}