no real changes

[selfforum.git] / selfforum-cgi / shared / Encode / Plain.pm

diff --git a/selfforum-cgi/shared/Encode/Plain.pm b/selfforum-cgi/shared/Encode/Plain.pm
index cf7ef0645c8e96ecda0f8d4b8c557417bf28f9b5..f7c5eef5f734f91b2d204fc0b688986db1f4e597 100644 (file)
--- 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
 
 # ====================================================
 # 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
 # ====================================================
 # Funktion:
 #      Codierung von non-ASCII-Zeichen fuer


@@ -15,14 +15,13 @@ package Encode::Plain;
 
 require 5.6.0;
 
 
 require 5.6.0;
 

-use vars qw(@ISA @EXPORT %sonder %unimap $utf8);
+use vars qw(@EXPORT %sonder %unimap $utf8);

 
 # ====================================================
 # Funktionsexport
 # ====================================================
 
 
 # ====================================================
 # Funktionsexport
 # ====================================================
 

-require Exporter;
-@ISA    = qw(Exporter);
+use base qw(Exporter);

 @EXPORT = qw(plain multiline toUTF8);
 
 ################################
 @EXPORT = qw(plain multiline toUTF8);
 
 ################################


@@ -152,6 +151,8 @@ sub toUTF8 ($) {
 # ====================================================
 
 BEGIN {
 # ====================================================
 
 BEGIN {

+  $utf8 = 0;
+

   # Latin 1 + geraten
   %sonder=("\177" => '',    # Delete-Zeichen
            "\200" => '€',   # Euro-Zeichen
   # Latin 1 + geraten
   %sonder=("\177" => '',    # Delete-Zeichen
            "\200" => '€',   # Euro-Zeichen