* Output list of failed repos to stderr when -s is used.

[code/myrepos.git] / mr

diff --git a/mr b/mr
index d4c3b250f1a6bca1d86454e3998c730f8041d827..95a7fe86a77535968990064cdad62c573a1a3227 100755 (executable)
--- a/mr
+++ b/mr
@@ -316,7 +316,7 @@ elsif ($action eq 'config') {
        }
        my $section=shift;
        if ($section=~/^\//) {
        }
        my $section=shift;
        if ($section=~/^\//) {

-               # try to convert to a path relative to $config's dir
+               # try to convert to a path relative to the config file

                my ($dir)=$ENV{MR_CONFIG}=~/^(.*\/)[^\/]+$/;
                if ($section=~/^\Q$dir\E(.*)/) {
                        $section=$1;
                my ($dir)=$ENV{MR_CONFIG}=~/^(.*\/)[^\/]+$/;
                if ($section=~/^\Q$dir\E(.*)/) {
                        $section=$1;


@@ -426,7 +426,13 @@ sub action { #{{{
                        push @skipped, $dir;
                        return;
                }
                        push @skipped, $dir;
                        return;
                }

+

                $dir=~s/^(.*)\/[^\/]+\/?$/$1/;
                $dir=~s/^(.*)\/[^\/]+\/?$/$1/;

+
+               if (! -d $dir) {
+                       print "mr $action: creating parent directory $dir\n" if $verbose;
+                       my $ret=system("mkdir", "-p", $dir);
+               }

        }
        elsif ($action eq 'update') {
                if (! -d $dir) {
        }
        elsif ($action eq 'update') {
                if (! -d $dir) {


@@ -531,7 +537,7 @@ if ($stats) {
                print "mr $action: (skipped: ".join(" ", @skipped).")\n";
        }
        if (@failed) {
                print "mr $action: (skipped: ".join(" ", @skipped).")\n";
        }
        if (@failed) {

-               print "mr $action: (failed: ".join(" ", @failed).")\n";
+               print STDERR "mr $action: (failed: ".join(" ", @failed).")\n";

        }
 }
 if (@failed) {
        }
 }
 if (@failed) {