Merge pull request #1 from CPAN-Security/fix/avoid-warnings-to-stdout

use warn instead of say, which breaks the JSON output
Perl-Toolchain-Gang · Dec 6, 2023 · ecc1031 · ecc1031
2 parents 34ba70a + 1ecc75b
commit ecc1031
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/generate-cpansa-data.pl b/generate-cpansa-data.pl
@@ -130,10 +130,10 @@ ($report)
         }
       }
       if ($gt_count > 1 || $lt_count > 1) {
-        say "$report->{id} has more than 1 range bundled together in '$version'";
+        warn "$report->{id} has more than 1 range bundled together in '$version'\n";
       }
       elsif ($gt_count == 1 && $lt_count == 1 && $lower_end > $higher_end) {
-        say "$report->{id} has invalid range in '$version'";
+        warn "$report->{id} has invalid range in '$version'\n";
       }
     }
     push @sanitized_versions, join(',', @sanitized_ands);