perl: open... || -> open... or (cont.)

Also: unfold a few lines, fix a space, add a missing parentheses.

Follow-up to 678e63934c #22036

Closes #22047
This commit is contained in:
Viktor Szakats 2026-06-16 15:40:07 +02:00
parent 1bb75af8e9
commit be8f24323e
No known key found for this signature in database
18 changed files with 44 additions and 58 deletions

View file

@ -32,7 +32,7 @@ our %pastversion;
sub allversions {
my ($file) = @_;
open(A, "<$file") ||
open(A, "<$file") or
die "cannot open the versions file $file\n";
my $before = 1;
my $relcount;