 &quot;&gt;&quot;, &quot;.git/watchman-response.json&quot;);
# print $fh $response;
# close $fh;

die &quot;Watchman: command returned no output.\n&quot; .
&quot;Falling back to scanning...\n&quot; if $response eq &quot;&quot;;
die &quot;Watchman: command returned invalid output: $response\n&quot; .
&quot;Falling back to scanning...\n&quot; unless $response =~ /^\{/;

return $json_pkg-&gt;new-&gt;utf8-&gt;decode($response);</pre>

<p>}</p>

<p>sub is_work_tree_watched {</p>

<pre>my ($output) = @_;
my $erro