thh/usevote
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

Convert Usevote to UTF-8.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2026-02-08 15:06:05 +01:00
parent 162c5aefda
commit a60ea76fe8
8 changed files with 31 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
UVtemplate.pm
View file

@ -44,6 +44,8 @@ einer Liste immer 60 Zeichen lang ist um ansehnliche Tabellen auszugeben.
#----------------------------------------------------------------------
use utf8;
use open qw(:std :utf8);
use strict;
use vars qw( $VERSION $functions @dirs);
use UVconfig;
@ -370,10 +372,10 @@ sub _parse_rules{
sub _strip_chars{
my $line = $_[0] || return;
# führenden whitespace entfernen
# führenden whitespace entfernen
$$line =~ s/^\s+//;
# kommentare bis zum nächsten Zeilenumbruch entfernen
# kommentare bis zum nächsten Zeilenumbruch entfernen
$$line =~ s/^#.*$//m;
}
@ -618,8 +620,8 @@ sub _parse_comment{
my $count = 1;
while($string && $count) {
$string =~ s/^[^\[\]\\]+//s; # alles außer Klammern und Backslash wegwerfen
$string =~ s/^\\.//; # alles gesperrte löschen
$string =~ s/^[^\[\]\\]+//s; # alles außer Klammern und Backslash wegwerfen
$string =~ s/^\\.//; # alles gesperrte löschen
$count++ if $string =~ s/^\[//;
$count-- if $string =~ s/^\]//;
@ -775,7 +777,7 @@ Sonderzeichen oder Leerzeichen uebergeben werden muessen diese gequotet
werden. Dazu kann ' also auch " verwendet werden.
Die Funktionen geben im Allgemeinen einen String zurueck. Im Rahmen
von Listen können auch Arrays uebergeben werden.
von Listen können auch Arrays uebergeben werden.
Die erste Funktion duerfte ueblicherweise 'value' sein. Sie gibt den
des angegeben Schluessel zurueck, der dann von den folgenden Funktionen