Minor sfnt-collection-check.pl tweak

Ken Lunde · Ken Lunde · commit abde83d03b19 · 2017-12-19T10:15:22.000-08:00
diff --git a/sfnt-collection-check.pl b/sfnt-collection-check.pl
@@ -26,7 +26,7 @@
     }
 }
 
-$fonts = scalar keys $data->{name};
+$fonts = scalar keys %{ $data->{name} };
 
 foreach $table (sort {$a cmp $b} keys %{ $data }) {
     if (scalar keys %{ $data->{$table} } == 1) {
@@ -55,7 +55,7 @@
 print STDOUT "Partially Shared Tables: $partially_shared\n";
 print STDOUT "Completely Shared Tables: $shared\n";
 
-foreach $table (sort { scalar keys $data->{$b} <=> scalar keys $data->{$a} } keys %{ $data }) {
+foreach $table (sort { scalar keys %{ $data->{$b} } <=> scalar keys %{ $data->{$a} } } keys %{ $data }) {
     $count = scalar keys %{ $data->{$table} };
     print STDOUT "$table = $count\n";
 }

Original file line number	Diff line number	Diff line change
`@@ -26,7 +26,7 @@`
`26`	`26`	`}`
`27`	`27`	`}`
`28`	`28`
`29`		`-$fonts = scalar keys $data->{name};`
	`29`	`+$fonts = scalar keys %{ $data->{name} };`
`30`	`30`
`31`	`31`	`foreach $table (sort {$a cmp $b} keys %{ $data }) {`
`32`	`32`	`if (scalar keys %{ $data->{$table} } == 1) {`
`@@ -55,7 +55,7 @@`
`55`	`55`	`print STDOUT "Partially Shared Tables: $partially_shared\n";`
`56`	`56`	`print STDOUT "Completely Shared Tables: $shared\n";`
`57`	`57`
`58`		`-foreach $table (sort { scalar keys $data->{$b} <=> scalar keys $data->{$a} } keys %{ $data }) {`
	`58`	`+foreach $table (sort { scalar keys %{ $data->{$b} } <=> scalar keys %{ $data->{$a} } } keys %{ $data }) {`
`59`	`59`	`$count = scalar keys %{ $data->{$table} };`
`60`	`60`	`print STDOUT "$table = $count\n";`
`61`	`61`	`}`