graphics/gimp
graphics/gimp
1
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp synced 2024-10-22 04:22:29 +00:00
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse source
This commit is contained in:
Marc Lehmann 1999-05-09 19:42:36 +00:00
parent 83a34c3cb7
commit 20bbf98b10
3 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plug-ins/perl/Changes
View file

@ -1,6 +1,8 @@
Revision history for Gimp-Perl extension.
- fixed sunos/solaris socketpair "protocol not implemented" problem.
- disabled paintbrush in testsuite since it has different calling
parameters in 1.1.
1.081 Thu May 6 19:33:37 CEST 1999
- added "oneliners".

7
plug-ins/perl/Gimp/Feature.pm
View file

@ -41,10 +41,9 @@ sub import {
my $feature;
local $Gimp::in_query=1;
while(@_) {
local $_=shift;
s/^://;
need($_);
while(defined (my $feature = shift)) {
$feature=~s/^://;
need($feature);
}
}

4
plug-ins/perl/t/run.t
View file

@ -53,8 +53,8 @@ sub tests {
skip($n,1,sub{gimp_image_add_layer($l,0) || 1});
skip($n,"new layer",sub{$l->get_name()});
skip($n,1,sub{$l->paintbrush(50,[1,1,2,2,5,3,7,4,2,8]) || 1});
skip($n,1,sub{$l->paintbrush(30,4,[5,5,8,1]) || 1});
skip(1,1); #skip($n,1,sub{$l->paintbrush(50,[1,1,2,2,5,3,7,4,2,8]) || 1});
skip(1,1); #skip($n,1,sub{$l->paintbrush(30,4,[5,5,8,1]) || 1});
skip($n,1,sub{Plugin->sharpen(RUN_NONINTERACTIVE,$i,$l,10) || 1});
skip($n,1,sub{$l->sharpen(10) || 1});