Changeset 1385

Timestamp:

Dec 22, 2009, 6:26:15 PM (15 years ago)

Author:

ezyang

Message:

Bugfixes for parallel-find.

File:

• trunk/locker/sbin/parallel-find.pl (modified) (2 diffs)

trunk/locker/sbin/parallel-find.pl

@@ -4 +4 @@
 
 use LockFile::Simple qw(trylock unlock);
+use File::stat;
 
 use lib '/mit/scripts/sec-tools/perl';
@@ -56 +57 @@
     my $dirname = shift;
     $uid = stat($dirname)->uid;
-    open my $h, "sudo -u #$uid git describe --tags 2>/dev/null |";
+    open my $h, "sudo -u#$uid git describe --tags 2>/dev/null |";
     chomp($val = <$h>);
     return $val;