*** empty log message ***

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

diff --git a/selfforum-cgi/shared/Posting/Write.pm b/selfforum-cgi/shared/Posting/Write.pm
index d2444df8d180a920299f0f626b4c37e9c1981880..72a5b256bf1601b3f0245e35885f44ebba74101f 100644 (file)
--- a/selfforum-cgi/shared/Posting/Write.pm
+++ b/selfforum-cgi/shared/Posting/Write.pm
@@ -2,7 +2,7 @@
 
 # ====================================================
 # Autor: n.d.p. / 2001-01-29
 
 # ====================================================
 # Autor: n.d.p. / 2001-01-29

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

 # ====================================================
 # Funktion:
 #      Speicherung eines Postings
 # ====================================================
 # Funktion:
 #      Speicherung eines Postings


@@ -12,14 +12,13 @@ use strict;
 
 package Posting::Write;
 
 
 package Posting::Write;
 

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

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

-require Exporter;
-@ISA    = qw(Exporter);

 @EXPORT = qw(write_posting);
 
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 @EXPORT = qw(write_posting);
 
 use Encode::Plain; $Encode::Plain::utf8 = 1;