Change 'print' to 'say'

And add the necessary 'use v5.10' for that, which carries the additional
advantage of enabling 'use strict'.
This commit is contained in:
2026-02-23 08:22:06 +01:00
parent e5c80f9f68
commit e833f17326

3
glv.pl
View File

@@ -1,11 +1,12 @@
#!/usr/bin/env perl
use v5.10;
my $all = $ARGV[0] =~ /^-a|--all$/ ? 1 : 0;
my @lines = `curl "https://gitlab.com/gitlab-org/gitlab-foss/-/raw/master/CHANGELOG.md" 2>/dev/null`;
for (@lines) {
if (/^##\s+(\d+\.\d+\.\d+)\s+\((\d+-\d+-\d+)/) {
print "$1 [$2]\n";
say "$1 [$2]";
unless ($all) {
last;
}