see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann
2000-05-10 03:02:28 +00:00
parent f1e6982a46
commit 8ffb40b7bf

View File

@ -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;