X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FModules%2FDebian.pl;h=4aa912fe9f66fa379e0605186831eeb6c4a7a404;hb=0e3df27228cf790fad3c3d9b6496db63c3ece37e;hp=eea5d945cc545e3c96c0a494eb6477d72c72d04b;hpb=a8b8b641d67103ac84e5d52c4ce8e1072aee4a43;p=infobot.git

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index eea5d94..4aa912f 100644
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -278,7 +278,7 @@ sub searchContents {
 	}
 
 	foreach $pkg (keys %contents) {
-	    foreach (keys %{$contents{$pkg}}) {
+	    foreach (keys %{ $contents{$pkg} }) {
 		# TODO: correct padding.
 		print OUT "$_\t\t\t$pkg\n";
 	    }
@@ -294,7 +294,7 @@ sub searchContents {
 
     my @list;
     foreach $pkg (keys %contents) {
-	my @tmplist = &::fixFileList(keys %{$contents{$pkg}});
+	my @tmplist = &::fixFileList(keys %{ $contents{$pkg} });
 	my @sublist = sort { length $a <=> length $b } @tmplist;
 
 	pop @sublist while (scalar @sublist > 3);
@@ -398,7 +398,7 @@ sub searchAuthor {
 	my $name;
 	foreach $name (keys %maint) {
 	    my $email;
-	    foreach $email (keys %{$maint{$name}}) {
+	    foreach $email (keys %{ $maint{$name} }) {
 		next unless ($email =~ /\Q$query\E/i);
 		next if (exists $hash{$name});
 		$hash{$name} = 1;
@@ -415,13 +415,13 @@ sub searchAuthor {
 
     &::DEBUG("showing all packages by '$list[0]'...");
 
-    my @pkg = sort keys %{$pkg{$list[0]}};
+    my @pkg = sort keys %{ $pkg{$list[0]} };
 
     # show how long it took.
     my $delta_time = &::timedelta($start_time);
     &::status(sprintf("Debian: %.02f sec to complete query.", $delta_time)) if ($delta_time > 0);
 
-    my $email	= join(', ', keys %{$maint{$list[0]}});
+    my $email	= join(', ', keys %{ $maint{$list[0]} });
     my $prefix	= "Debian Packages by $list[0] \002<\002$email\002>\002 ";
     &::pSReply( &::formListReply(0, $prefix, @pkg) );
 }
@@ -809,14 +809,14 @@ sub infoStats {
     &::pSReply(
 	"Debian Distro Stats on $dist... ".
 	"\002$total{'count'}\002 packages, ".
-	"\002".scalar(keys %{$total{'maint'}})."\002 maintainers, ".
+	"\002".scalar(keys %{ $total{'maint'} })."\002 maintainers, ".
 	"\002". int($total{'isize'}/1024)."\002 MB installed size, ".
 	"\002". int($total{'csize'}/1024/1024)."\002 MB compressed size."
     );
 
 ### TODO: do individual stats? if so, we need _another_ arg.
 #    foreach $file (keys %stats) {
-#	foreach (keys %{$stats{$file}}) {
+#	foreach (keys %{ $stats{$file} }) {
 #	    &::DEBUG("  '$file' '$_' '$stats{$file}{$_}'.");
 #	}
 #    }