hman output
# open (my $fh, &quot;&gt;&quot;, &quot;.git/watchman-output.out&quot;);
# binmode $fh, &quot;:utf8&quot;;
# print $fh &quot;$clockid\n@files\n&quot;;
# close $fh;

binmode STDOUT, &quot;:utf8&quot;;
print $clockid;
print &quot;\0&quot;;
local $, = &quot;\0&quot;;
print @files;</pre>

<p>}</p>

<p>sub watchman_clock {</p>

<pre>my $response = qx/watchman clock &quot;$git_work_tree&quot;/;
die &quot;Failed to get clock id on &#39;$git_work_tree&#39;.\n&quot; .
        &quot;Falling back to scanni