and the release date
[imager.git] / filterlist.perl
index 69ee199..d73fefe 100755 (executable)
@@ -1,12 +1,12 @@
 #!/usr/bin/perl 
-
+use strict;
 use Imager;
 print "Filter          Arguments\n";
-for $filt (keys %Imager::filters) {
-    @callseq=@{$Imager::filters{$filt}{'callseq'}};
-    %defaults=%{$Imager::filters{$filt}{'defaults'}};
+for my $filt (keys %Imager::filters) {
+    my @callseq=@{$Imager::filters{$filt}{'callseq'} || {}};
+    my %defaults=%{$Imager::filters{$filt}{'defaults'} || {}};
     shift(@callseq);
-    @b=map { exists($defaults{$_}) ? $_.'('.$defaults{$_}.')' : $_ } @callseq;
-    $str=join(" ",@b);    
+    my @b=map { exists($defaults{$_}) ? $_.'('.$defaults{$_}.')' : $_ } @callseq;
+    my $str=join(" ",@b);    
     printf("%-15s %s\n",$filt,$str );
 }