clean up extra newlines

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 6c59683cadfe79dd52f45f57163de2d301ee721c..f26b144687cac43bc09abea6ce6ec992e85026f8 100755 (executable)
--- a/mr
+++ b/mr
@@ -175,6 +175,7 @@ loadconfig($config);
 #use Data::Dumper;
 #print Dumper(\%config);
 
 #use Data::Dumper;
 #print Dumper(\%config);
 

+# alias expansion and command stemming

 my $action=shift @ARGV;
 if (! exists $knownactions{$action}) {
        if (exists $alias{$action}) {
 my $action=shift @ARGV;
 if (! exists $knownactions{$action}) {
        if (exists $alias{$action}) {


@@ -192,6 +193,15 @@ if (! exists $knownactions{$action}) {
        }
 }
 
        }
 }
 

+# handle being in a subdir of a repository
+foreach my $topdir (sort keys %config) {
+       foreach my $subdir (sort keys %{$config{$topdir}}) {
+               if ($directory =~ /^\Q$topdir$subdir\E\//) {
+                       $directory=$topdir.$subdir;
+               }
+       }
+}
+

 my (@failed, @successful, @skipped);
 my $first=1;
 foreach my $topdir (sort keys %config) {
 my (@failed, @successful, @skipped);
 my $first=1;
 foreach my $topdir (sort keys %config) {


@@ -203,14 +213,9 @@ foreach my $topdir (sort keys %config) {
                if (defined $directory &&
                    $dir ne $directory &&
                    $dir !~ /^\Q$directory\E\//) {
                if (defined $directory &&
                    $dir ne $directory &&
                    $dir !~ /^\Q$directory\E\//) {

-                       print "mr $action: $dir skipped per -d parameter ($directory)\n" if $verbose;
-                       push @skipped, $dir;

                        next;
                }
 
                        next;
                }
 

-               print "\n" unless $first;
-               $first=0;
-

                action($action, $dir, $topdir, $subdir);
 
        }
                action($action, $dir, $topdir, $subdir);
 
        }


@@ -273,6 +278,9 @@ sub action {
                else {
                        push @successful, $dir;
                }
                else {
                        push @successful, $dir;
                }

+
+               print "\n" unless $first;
+               $first=0;

        }
 }
 
        }
 }
 


@@ -285,7 +293,8 @@ sub showstat {
        }
        return;
 }
        }
        return;
 }

-print "\nmr $action: finished (".join("; ",
+print "\n" unless $first;
+print "mr $action: finished (".join("; ",

        showstat($#successful+1, "successful", "successful"),
        showstat($#failed+1, "failed", "failed"),
        showstat($#skipped+1, "skipped", "skipped"),
        showstat($#successful+1, "successful", "successful"),
        showstat($#failed+1, "failed", "failed"),
        showstat($#skipped+1, "skipped", "skipped"),