improve changelog

[code/myrepos.git] / mr

diff --git a/mr b/mr
index b2cb388c072988fccb8cc5b03d4c0315784c7736..1e5c2fd9072ffd0cc6d42f04450ae02fb4fd19ae 100755 (executable)
--- a/mr
+++ b/mr
@@ -316,7 +316,7 @@ elsif ($action eq 'config') {
        }
        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;
@@ -428,9 +428,10 @@ sub action { #{{{
                }
 
                $dir=~s/^(.*)\/[^\/]+\/?$/$1/;
+
                if (! -d $dir) {
                        print "mr $action: creating parent directory $dir\n" if $verbose;
-                       mkdir $dir;
+                       my $ret=system("mkdir", "-p", $dir);
                }
        }
        elsif ($action eq 'update') {