[rt #70388] debug mymalloc() no longer builds a string, just stores the pointer

[imager.git] / filterlist.perl

diff --git a/filterlist.perl b/filterlist.perl
index 69ee19984ed031e438a5004b50837f8230ae865a..d73fefeb8a0908a23bb9bc406b2b3aff83500328 100755 (executable)
--- 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 );
 }