Changeset 1371 for trunk/locker/sbin/parallel-find.pl
- Timestamp:
- Dec 6, 2009, 11:11:44 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/locker/sbin/parallel-find.pl
r1370 r1371 28 28 system("mv", $dump, $dumpbackup) && unlock_and_die "Unable to back up current directory $dump"; 29 29 } 30 system("mkdir", $dump) && unlock_and_die ;30 system("mkdir", $dump) && unlock_and_die "mkdir failed to create $dump"; 31 31 32 32 use Proc::Queue size => 40, debug => 0, trace => 0; … … 90 90 exit(0); 91 91 } 92 92 print "$user\n"; 93 93 $ret = find($user, $homedir); 94 95 94 sleep rand 1; 95 exit($ret); 96 96 } 97 97 1 while waitpid(-1, WNOHANG)>0; # avoids memory leaks in Proc::Queue
Note: See TracChangeset
for help on using the changeset viewer.