Mercurial > hg > batmud > misc

changeset 337:992d8c1c72e6 misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Indentation and formatting cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 29 Jun 2016 18:22:32 +0300
parents f09650f2e7a8
children 2ce060f8dc9c
files nun/tasks/findreqs.pl
diffstat 1 files changed, 15 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/nun/tasks/findreqs.pl	Sat Jan 02 18:09:48 2016 +0200
+++ b/nun/tasks/findreqs.pl	Wed Jun 29 18:22:32 2016 +0300
@@ -65,14 +65,20 @@
 ### Print out the results
 $n = 0;
 if ($#ARGV >= 0) {
-  if ($ARGV[0] eq "-tasks") {
-    for my $taskName (sort keys %taskList) {
+  if ($ARGV[0] eq "-tasks")
+  {
+    for my $taskName (sort keys %taskList)
+    {
       print $taskName."\n";
     }
-  } elsif ($ARGV[0] eq "-dump") {
-    for my $taskName (sort keys %taskList) {
+  }
+  elsif ($ARGV[0] eq "-dump")
+  {
+    for my $taskName (sort keys %taskList)
+    {
       print $taskName."|";
-      for my $skillName (sort keys %{$taskList{$taskName}}) {
+      for my $skillName (sort keys %{$taskList{$taskName}})
+      {
         print $skillName."=".$taskList{$taskName}{$skillName}."|";
       }
       print "\n";
@@ -98,7 +104,8 @@
     }
     elsif ($i == 1)
     {
-      for my $skillName (sort keys %{$taskList{$taskName}}) {
+      for my $skillName (sort keys %{$taskList{$taskName}})
+      {
         printf "| %-32s | %-25s | %3d |\n", $taskName, $skillName, $taskList{$taskName}{$skillName};
       }
       $sepLine = 0;
@@ -107,7 +114,8 @@
     {
       print_separator() if (!$sepLine);
       printf "| %-66s |\n", $taskName;
-      for my $skillName (sort keys %{$taskList{$taskName}}) {
+      for my $skillName (sort keys %{$taskList{$taskName}})
+      {
         printf "| %-32s | %-25s | %3d |\n", "", $skillName, $taskList{$taskName}{$skillName};
       }
       print_separator();