Index: locker/sbin/parallel-find.pl
===================================================================
--- locker/sbin/parallel-find.pl	(revision 723)
+++ locker/sbin/parallel-find.pl	(revision 724)
@@ -8,6 +8,6 @@
 my $dump = "/mit/scripts/sec-tools/store/versions";
 
-die if (-e $dump);
-`mkdir $dump`;
+(! -e $dump) || die "Output directory exists: $dump";
+system("mkdir", $dump) && die;
 
 use Proc::Queue size => 40, debug => 0;
@@ -25,9 +25,10 @@
     if(defined ($f) and $f==0) {
 	print "$user\n";
-#	print "find /mit/$user/web_scripts -name .scripts-version -fprint $dump/$user 2> /dev/null";
-	`find $homedir/web_scripts -xdev -name .scripts-version -fprint  $dump/$user 2> /dev/null`;
+	my $ret = system("find $homedir/web_scripts -xdev -name .scripts-version -print > $dump/$user 2> /dev/null");
 	sleep rand 1;
-	exit(0);
+	exit($ret);
     }
-    1 while waitpid(-1, WNOHANG)>0; # reaps childs
+    while (waitpid(-1, WNOHANG)>0) {
+        $? && die "child exited with error: $?";
+    }; # reaps childs
 }