bob/gitlabvers
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Change 'print' to 'say'

Browse Source 
And add the necessary 'use v5.10' for that, which carries the additional
advantage of enabling 'use strict'.
This commit is contained in:
Bob Polis
2026-02-23 08:22:06 +01:00
parent e5c80f9f68
commit e833f17326
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
glv.pl
View File

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