Trying to make the process faster

ivanwills · Jan 31, 2020 · ebc3fe1 · ebc3fe1
1 parent a1404d4
commit ebc3fe1
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/bin/group-git b/bin/group-git
@@ -18,6 +18,7 @@ use Group::Git;
 use Config::Any;
 use Term::ANSIColor qw/colored/;
 use File::chdir;
+use Time::HiRes qw/sleep/;
 
 our $VERSION = version->new('0.7.2');
 my ($name)   = $PROGRAM_NAME =~ m{^.*/(.*?)$}mxs;
@@ -166,8 +167,8 @@ sub main {
                     process_thread($thread, $opt, $outfh);
                 }
             }
-            if ($count++ % 10 == 0) {
-                sleep 1;
+            if ($count++ % 100 == 0) {
+                sleep 0.5;
             }
             else {
                 warn "There are currently " . @threads . " threads (of $count started)\n" if $opt->verbose;