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,
$menupath,$imagetypes,$params,$code)=@_;
$function =~ s%^perl_fu_%logulator_% or die;
$imagetypes ||= "RGBA,GREYA,INDEXEDA";
$imagetypes ||= "RGBA,GRAYA,INDEXEDA";
my($i,$j)=0;
my($ti,$fsi,$fi);
$i=@$params;