X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/ba659b53059e637777865e646f0f2a6fb7f2988e..18da3fe7fb9cb4e98596b146df4fe8ba59bcb725:/selfforum-cgi/shared/Encode/Plain.pm diff --git a/selfforum-cgi/shared/Encode/Plain.pm b/selfforum-cgi/shared/Encode/Plain.pm index cf7ef06..f7c5eef 100644 --- a/selfforum-cgi/shared/Encode/Plain.pm +++ b/selfforum-cgi/shared/Encode/Plain.pm @@ -2,7 +2,7 @@ # ==================================================== # Autor: n.d.p. / 2001-01-07 -# lm : n.d.p. / 2001-02-06 +# lm : n.d.p. / 2001-02-25 # ==================================================== # Funktion: # Codierung von non-ASCII-Zeichen fuer @@ -15,14 +15,13 @@ package Encode::Plain; require 5.6.0; -use vars qw(@ISA @EXPORT %sonder %unimap $utf8); +use vars qw(@EXPORT %sonder %unimap $utf8); # ==================================================== # Funktionsexport # ==================================================== -require Exporter; -@ISA = qw(Exporter); +use base qw(Exporter); @EXPORT = qw(plain multiline toUTF8); ################################ @@ -152,6 +151,8 @@ sub toUTF8 ($) { # ==================================================== BEGIN { + $utf8 = 0; + # Latin 1 + geraten %sonder=("\177" => '', # Delete-Zeichen "\200" => '€', # Euro-Zeichen