X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/ba659b53059e637777865e646f0f2a6fb7f2988e..aaff267fdddc495df3bfa2fc0eb0d20a76b6d220:/selfforum-cgi/shared/Template/Forum.pm?ds=inline

diff --git a/selfforum-cgi/shared/Template/Forum.pm b/selfforum-cgi/shared/Template/Forum.pm
index ab853ae..c03f05a 100644
--- a/selfforum-cgi/shared/Template/Forum.pm
+++ b/selfforum-cgi/shared/Template/Forum.pm
@@ -13,8 +13,6 @@ use strict;
 
 package Template::Forum;
 
-use vars qw(@ISA @EXPORT);
-
 use Lock qw(:READ);
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Posting::_lib qw(get_all_threads long_hr_time);
@@ -26,9 +24,8 @@ use Template::_thread;
 # Funktionsexport
 # ====================================================
 
-require Exporter;
-@ISA    = qw(Exporter);
-@EXPORT = qw(print_forum_as_HTML);
+use base qw(Exporter);
+@Template::Forum::EXPORT = qw(print_forum_as_HTML);
 
 ################################
 # sub print_forum_as_HTML
@@ -47,6 +44,7 @@ sub print_forum_as_HTML ($$$) {
   unless ($stat = lock_file ($mainfile)) {
     if ($stat == 0) {
       violent_unlock_file ($mainfile);
+      print "aha!"
       # ueberlastet
     }