fix typos in perl and css files

Found with typos-cli (`cargo install typos-cli`):

```
typos --exclude .git --exclude tests --exclude images \
 --exclude changelog
```

Signed-off-by: Maximiliano Sandoval <m.sandoval@proxmox.com>
[S.I.: add typos-cli reference]
Signed-off-by: Stoiko Ivanov <s.ivanov@proxmox.com>
This commit is contained in:
Maximiliano Sandoval 2024-08-07 12:49:42 +02:00 committed by Stoiko Ivanov
parent 0eadcfcbc2
commit 10a1a7b6b6
3 changed files with 8 additions and 8 deletions

View File

@ -79,7 +79,7 @@ sub pop_environment {
die "unable to pop env '$env'" if !defined($last_stack_entry);
my ($last_env, $skip) = @$last_stack_entry;
die "environment missmatch (${last_env} != $env)\n" if $last_env ne $env;
die "environment mismatch (${last_env} != $env)\n" if $last_env ne $env;
if (!scalar(@$env_stack)) {
$env_skip = 0;
@ -213,7 +213,7 @@ sub prepare_adoc_file {
chomp $line;
if ($line =~ m/^if(n?)def::(\S+)\[(.*)\]\s*$/) {
my ($not, $env, $text) = ($1, $2, $3);
die "unsuported ifdef usage - implement me" if $text;
die "unsupported ifdef usage - implement me" if $text;
my $skip = !exists($attributes->{$env}) ? 1 : 0;
$skip = ($skip ? 0 : 1 ) if $not;
@ -222,7 +222,7 @@ sub prepare_adoc_file {
next;
} elsif ($line =~ m/^endif::(\S+)\[(.*)\]\s*$/) {
my ($env, $text) = ($1, $2);
die "unsuported ifdef usage - implement me" if $text;
die "unsupported ifdef usage - implement me" if $text;
pop_environment($env);
next;
}

View File

@ -139,7 +139,7 @@ h6:hover > a.headerlink {
color: var(--pdt-text);
}
/* reduce the brigthness of images a bit and make it reversable
/* reduce the brightness of images a bit and make it reversable
* through hovering over them.
*/
.image > img {
@ -194,7 +194,7 @@ h6:hover > a.headerlink {
filter: invert(100%) hue-rotate(180deg) brightness(90%);
}
/* fixes the black text on unorderd lists */
/* fixes the black text on unordered lists */
ul > li > * {
color: var(--pdt-text);
}

View File

@ -70,7 +70,7 @@ sub pop_environment {
pop @$env_stack;
my $res = pop @$env_name_stack;
die "environment missmatch ($res != $env)\n" if $res ne $env;
die "environment mismatch ($res != $env)\n" if $res ne $env;
}
sub register_include {
@ -146,12 +146,12 @@ sub scan_adoc_file {
while (defined (my $line = <$fh>)) {
if ($line =~ m/^if(n?)def::(\S+)\[(.*)\]\s*$/) {
my ($not, $env, $text) = ($1, $2, $3);
die "unsuported ifdef usage - implement me" if $text;
die "unsupported ifdef usage - implement me" if $text;
push_environment($env, $not);
next;
} elsif ($line =~ m/^endif::(\S+)\[(.*)\]\s*$/) {
my ($env, $text) = ($1, $2);
die "unsuported ifdef usage - implement me" if $text;
die "unsupported ifdef usage - implement me" if $text;
pop_environment($env);
next;
} elsif ($line =~ m/^include::(\S+)\[.*\]\s*$/) {