see plug-ins/perl/Changes
This commit is contained in:
@ -17,7 +17,7 @@ sub register($$$$$$$$$;@) {
|
|||||||
my($function,$blurb,$help,$author,$copyright,$date,
|
my($function,$blurb,$help,$author,$copyright,$date,
|
||||||
$menupath,$imagetypes,$params,$code)=@_;
|
$menupath,$imagetypes,$params,$code)=@_;
|
||||||
$function =~ s%^perl_fu_%logulator_% or die;
|
$function =~ s%^perl_fu_%logulator_% or die;
|
||||||
$imagetypes ||= "RGBA,GREYA,INDEXEDA";
|
$imagetypes ||= "RGBA,GRAYA,INDEXEDA";
|
||||||
my($i,$j)=0;
|
my($i,$j)=0;
|
||||||
my($ti,$fsi,$fi);
|
my($ti,$fsi,$fi);
|
||||||
$i=@$params;
|
$i=@$params;
|
||||||
|
Reference in New Issue
Block a user