From: Joey Hess Date: Fri, 26 Oct 2007 08:32:04 +0000 (-0400) Subject: function reorder X-Git-Url: https://git.madduck.net/code/myrepos.git/commitdiff_plain/4be19aacd0842e9e434e6c6795244fdb13689a33?ds=inline function reorder --- diff --git a/mr b/mr index bc73d40..67196ca 100755 --- a/mr +++ b/mr @@ -323,30 +323,6 @@ my (@ok, @failed, @skipped); main(); -sub dispatch { #{{{ - my $action=shift; - - # actions that do not operate on all repos - if ($action eq 'help') { - help(@ARGV); - } - elsif ($action eq 'config') { - config(@ARGV); - } - elsif ($action eq 'register') { - register(@ARGV); - } - - if ($jobs > 1) { - mrs($action, selectrepos()); - } - else { - foreach my $repo (selectrepos()) { - record($repo, action($action, @$repo)); - } - } -} #}}} - sub rcs_test { #{{{ my ($action, $dir, $topdir, $subdir) = @_; @@ -912,7 +888,31 @@ sub modifyconfig { #{{{ print $out @out; close $out; } #}}} - + +sub dispatch { #{{{ + my $action=shift; + + # actions that do not operate on all repos + if ($action eq 'help') { + help(@ARGV); + } + elsif ($action eq 'config') { + config(@ARGV); + } + elsif ($action eq 'register') { + register(@ARGV); + } + + if ($jobs > 1) { + mrs($action, selectrepos()); + } + else { + foreach my $repo (selectrepos()) { + record($repo, action($action, @$repo)); + } + } +} #}}} + sub help { #{{{ exec($config{''}{DEFAULT}{help}) || die "exec: $!"; } #}}}