dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 1999-08-24 20:49:01 +00:00
parent 3423edf7eb
commit a6adc60383
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
plug-ins/perl/Changes
View File

@ -1,5 +1,8 @@
Revision history for Gimp-Perl extension.
1.12 Tue Aug 24 19:30:29 CEST 1999
- do not emit warning for function names prefixed with "+".
1.11 Tue Aug 3 03:23:23 CEST 1999
- EXPERIMENTALLY re-enabled the return path from main. It works
with perl 5.005_60, but I remember problems with other versions.

9
plug-ins/perl/Gimp/Fu.pm
View File

@ -647,10 +647,10 @@ sub register($$$$$$$$$;@) {
$p->[1]=~/^[0-9a-z_]+$/ or carp "$function: argument name '$p->[1]' contains illegal characters, only 0-9, a-z and _ allowed";
}
$function="perl_fu_".$function unless $function =~ /^(?:perl_fu_|extension_|plug_in_|file_)/ || $function =~ s/^\+//;
$function=~/^[0-9a-z_]+(-ALT)?$/ or carp "$function: function name contains unusual characters, good style is to use only 0-9, a-z and _";
$function="perl_fu_".$function unless $function=~/^(?:\+|perl_fu_|extension_|plug_in_|file_)/;
Gimp::logger message => "function name contains dashes instead of underscores",
function => $function, fatal => 0
if $function =~ y/-//;
@ -670,8 +670,9 @@ sub register($$$$$$$$$;@) {
} elsif ($menupath=~/^<Save>\//) {
@_ >= 4 or die "<Save> plug-in called without the 5 standard arguments!\n";
@pre = (shift,shift,shift,shift);
} elsif ($menupath=~/^<None>\/?/) {
} else {
die "menupath _must_ start with <Image>, <Toolbox>, <Load> or <Save>!";
die "menupath _must_ start with <Image>, <Toolbox>, <Load>, <Save> or <None>!";
}
if (@defaults) {

4
plug-ins/perl/Gimp/Net.pm
View File

@ -141,8 +141,8 @@ sub start_server {
print "trying to start gimp with options \"$opt\"\n" if $Gimp::verbose;
$server_fh=local *SERVER_FH;
my $gimp_fh=local *CLIENT_FH;
socketpair $server_fh,$gimp_fh,PF_UNIX,SOCK_STREAM,AF_UNIX
or socketpair $server_fh,$gimp_fh,PF_UNIX,SOCK_STREAM,PF_UNSPEC
socketpair $server_fh,$gimp_fh,AF_UNIX,SOCK_STREAM,PF_UNSPEC
or socketpair $server_fh,$gimp_fh,AF_LOCAL,SOCK_STREAM,PF_UNSPEC
or croak "unable to create socketpair for gimp communications: $!";
# do it here so it i done only once