# ====================================================
 # 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
 
 package Encode::Posting;
 
-use vars qw(@ISA @EXPORT);
+use vars qw(@EXPORT);
 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);
 
 ################################