perl: || die -> or die

Usage was fifty-fifty between these syntaxes before this patch.

Closes #22036
This commit is contained in:
Viktor Szakats 2026-06-15 01:26:04 +02:00
parent 5d1ac48088
commit 678e63934c
No known key found for this signature in database
29 changed files with 69 additions and 69 deletions

View file

@ -16,7 +16,7 @@ use warnings;
my @asyms;
open(S, "<./docs/libcurl/symbols-in-versions")
|| die "cannot find symbols-in-versions";
or die "cannot find symbols-in-versions";
while(<S>) {
if(/^([^ ]*) /) {
push @asyms, $1;
@ -30,7 +30,7 @@ my @aopts = (
);
open(O, "<./docs/options-in-versions")
|| die "cannot find options-in-versions";
or die "cannot find options-in-versions";
while(<O>) {
chomp;
if(/^([^ ]+)/) {
@ -50,7 +50,7 @@ while(<O>) {
close(O);
open(C, "<./.github/scripts/spellcheck.curl")
|| die "cannot find spellcheck.curl";
or die "cannot find spellcheck.curl";
while(<C>) {
if(/^\#/) {
next;