Use spawn to check perl scripts (#3368)

This avoids ERR_CHILD_PROCESS_STDIO_MAXBUFFER being called if we have too much output.

scripts/check_perl.js

@@ -1,34 +1,42 @@
 /*eslint no-console: "off"*/
 /*eslint no-await-in-loop: "off"*/
 
-const process = require('process');
-const util = require('util');
-const glob = util.promisify(require('glob').glob);
-const execFile = util.promisify(require('child_process').execFile);
+const process = require("process");
+const util = require("util");
+const glob = util.promisify(require("glob").glob);
+const { spawn } = require("child_process");
+
+function checkFile(path, doneCallback) {
+  console.log(`Checking ${path}`);
+  try {
+    const child = spawn(`perl`, ["-c", "-CS", "-Ilib", path]);
+    child.stdout.on("data", (data) => console.log("[" + path + "] " + data));
+    child.stderr.on("data", (data) => console.error("[" + path + "] " + data));
+    child.on("close", (code) => {
+      console.log("[" + path + "] result: " + code);
+      process.exitCode = code;
+      doneCallback();
+    });
+  } catch (e) {
+    console.error("[" + path + "] " + e);
+    process.exitCode = e.code;
+    throw e;
+  }
+}
+
+const check = util.promisify(checkFile);
 
 async function main() {
   // 0 = node; 1 = check_perl.js
   for (const arg of process.argv.slice(2)) {
     const files = await glob(arg);
     for (var i = 0; i < files.length; ++i) {
       const path = files[i];
-      console.log(`Checking ${path}`);
-      try {
-        const { stdout, stderr } = await execFile(`perl`, ['-c', '-CS', '-Ilib', files[i]]);
-        if (stderr) {
-          console.error(stderr);
-        }
-
-        console.log(stdout);
-      } catch (e) {
-        console.error(e);
-        process.exitCode = e.code;
-        throw e;
-      }
+      await check(path);
     }
   }
 
-  console.log('Done!');
+  console.log("Done!");
 }
 
 main();