ignore commented out error message (#1326)

.github/perl.json → scripts/perl.json

@@ -4,7 +4,7 @@
             "owner": "perl",
             "pattern": [
                 {
-                    "regexp": "^(.+)\\sat\\s(.+)\\sline\\s(\\d+)\\.$",
+                    "regexp": "^\\s*([^#\\s].+)\\sat\\s(.+)\\sline\\s(\\d+)\\.$",
                     "file": 2,
                     "line": 3,
                     "message": 1

scripts/t/05_problem_matcher.t

@@ -0,0 +1,21 @@
+use Test::More;
+use JSON::PP qw/decode_json/;
+
+open my $fh, '<', 'perl.json' or die "$!";
+my $data = do {local $/; <$fh>};
+close $fh;
+
+my $matcher = decode_json($data);
+my $problem_matcher = $matcher->{problemMatcher};
+my $regexp = $problem_matcher->[0]{pattern}[0]{regexp};
+diag $regexp;
+
+like 'Bareword "foobar" not allowed while "strict subs" in use at t/errors.pl line 4.', qr/$regexp/, 'systax error';
+like 'some error!! at t/errors.pl line 4.', qr/$regexp/, 'die';
+like 'some # error!! at t/errors.pl line 4.', qr/$regexp/, 'die';
+
+# from: https://github.com/shogo82148/actions-setup-perl/issues/1302
+unlike '    # at /home/runner/work/perlTest/perlTest/t/FHEM/98_HELLO/00_define.t line 21.', qr/$regexp/, 'issue 1302';
+unlike "# at /home/runner/work/perlTest/perlTest/t/FHEM/98_HELLO/00_define.t line [22]", qr/$regexp/, 'issue 1302';
+done_testing;
+

scripts/t/errors.pl

@@ -0,0 +1,4 @@
+use strict;
+use warnings;
+
+die "some # error!!";

src/setup-perl.ts

@@ -47,8 +47,8 @@ async function run() {
       perlHash = await digestOfPerlVersion(result.path);
       core.setOutput("perl-hash", perlHash);
 
-      const matchersPath = path.join(__dirname, "..", ".github");
-      console.log(`##[add-matcher]${path.join(matchersPath, "perl.json")}`);
+      const matchersPath = path.join(__dirname, "..", "scripts");
+      console.log(`::add-matcher::${path.join(matchersPath, "perl.json")}`);
 
       // for pre-installed scripts
       core.addPath(path.join(__dirname, "..", "bin"));