add --no-parallel option to GetComponents

GetComponents will use parallel checkouts by if the required Perl modules are present. making the --parallel option (mostly) unnecessary. However there is no --no-parallel option that would allow one to disable parallel checkouts if those do not work for other reasons (server banning the client for example).

This patch:

--- GetComponents.orig  2020-05-20 19:09:00.499139670 -0500
+++ GetComponents.new   2020-05-20 19:05:52.574185777 -0500
@@ -148,7 +148,7 @@
     'experimental'         => \$EXPERIMENTAL,
     'status'               => \$STATUS,
     'diff'                 => \$DIFF,
-    'parallel'             => \$PARALLEL,
+    'parallel!'            => \$PARALLEL,
     'shallow!'             => \$SHALLOW_CLONE,
     'reset-authentication' => sub { system("rm $crl_dir/users") }
 ) or pod2usage(2);
@@ -2759,7 +2759,7 @@

     --debug         print all commands to be executed and exit

-    --parallel      checkout/update components in parallel
+    --[no]parallel  checkout/update components in parallel

     --anonymous     use anonymous checkout for all components

does so.

Comments (6)