X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/ba659b53059e637777865e646f0f2a6fb7f2988e..896aeefafa119a5f1f6686c1f2457eaafaae1ea8:/selfforum-cgi/shared/Encode/Plain.pm?ds=inline

diff --git a/selfforum-cgi/shared/Encode/Plain.pm b/selfforum-cgi/shared/Encode/Plain.pm
index cf7ef06..2fe5634 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
@@ -206,7 +207,7 @@ BEGIN {
            "\261" => '±',    # Plusminus
            "\262" => '²',    # hoch 2
            "\263" => '³',    # hoch 3
-           "\264" => '‚',   # einf. anfuehrungszeichen unten
+           "\264" => '´',   # Acute
            "\265" => 'µ',    # my-Zeichen (griech)
            "\266" => '¶',    # Absatzzeichen
            "\267" => '·',    # Mal-Zeichen
@@ -325,7 +326,7 @@ BEGIN {
            173 => '-',
            174 => '®',
            175 => 'ß',
-           180 => '‚',
+           180 => '´',
            184 => '¸',
            185 => '¹',
            187 => '»',