no, it's not ready

[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 7e6ba975b9d9fe31162be01290f9ffde2157383b..48941d1ab8cf9b62c6cc51b711abbeb3826c671f 100644 (file)
--- a/selfforum-cgi/shared/Posting/Write.pm
+++ b/selfforum-cgi/shared/Posting/Write.pm
@@ -12,14 +12,13 @@ package Posting::Write;
 
 use strict;
 
 
 use strict;
 

-use vars qw(@EXPORT);

 use base qw(Exporter);
 
 # ====================================================
 # Funktionsexport
 # ====================================================
 
 use base qw(Exporter);
 
 # ====================================================
 # Funktionsexport
 # ====================================================
 

-@EXPORT = qw(write_posting);
+@Posting::Write::EXPORT = qw(write_posting);

 
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Encode::Posting;
 
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Encode::Posting;


@@ -278,4 +277,4 @@ sub create_new_thread ($) {
 
 # ====================================================
 # end of Posting::Write
 
 # ====================================================
 # end of Posting::Write

-# ====================================================
+# ====================================================
\ No newline at end of file