X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/87aeee89afd99df4c3d15ba53e18ecf66deb96dd..60b5987c6fd0e98be1b9a32560731953d7cc8827:/mr?ds=sidebyside diff --git a/mr b/mr index d4c3b25..1e5c2fd 100755 --- 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; @@ -426,7 +426,13 @@ sub action { #{{{ push @skipped, $dir; return; } + $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) {