*** empty log message ***

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

diff --git a/selfforum-cgi/shared/Encode/Posting.pm b/selfforum-cgi/shared/Encode/Posting.pm
index b12420fd2dbcfec03ee59125ac1c73ff7e235e99..0140dfba4fdffaf3579a0fde6d9963079875afb2 100644 (file)
--- a/selfforum-cgi/shared/Encode/Posting.pm
+++ b/selfforum-cgi/shared/Encode/Posting.pm
@@ -2,7 +2,7 @@
 
 # ====================================================
 # Autor: n.d.p. / 2001-01-07
 
 # ====================================================
 # Autor: n.d.p. / 2001-01-07

-# lm   : n.d.p. / 2001-01-08
+# lm   : n.d.p. / 2001-02-25

 # ====================================================
 # Funktion:
 #      Spezielle Codierung eines Postingtextes
 # ====================================================
 # Funktion:
 #      Spezielle Codierung eines Postingtextes


@@ -12,15 +12,14 @@ use strict;
 
 package Encode::Posting;
 
 
 package Encode::Posting;
 

-use vars qw(@ISA @EXPORT);
+use vars qw(@EXPORT);

 use Encode::Plain; $Encode::Plain::utf8 = 1;
 
 # ====================================================
 # Funktionsexport
 # ====================================================
 
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 
 # ====================================================
 # Funktionsexport
 # ====================================================
 

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

 @EXPORT = qw(encoded_body answer_field message_field);
 
 ################################
 @EXPORT = qw(encoded_body answer_field message_field);
 
 ################################