X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/02d1d62827cef86398edc2013f7d2ff04bf21c63..546ea21c150b7b43fdb89a86022b2efe2268d662:/filterlist.perl

diff --git a/filterlist.perl b/filterlist.perl
index 69ee1998..d73fefeb 100755
--- a/filterlist.perl
+++ b/filterlist.perl
@@ -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 );
 }