From 1212b3c6efe671f3c4e7d88eddb0a543609fe610 Mon Sep 17 00:00:00 2001
From: ndparker <>
Date: Tue, 26 Jun 2001 11:54:39 +0000
Subject: [PATCH] changed the export mechanism of Time::German - Thanks a lot
 to Calocybe ;-))

---
 selfforum-cgi/shared/Posting/_lib.pm | 2 +-
 selfforum-cgi/shared/Time/German.pm  | 6 ++++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm
index 1f6de85..e89a0c1 100644
--- a/selfforum-cgi/shared/Posting/_lib.pm
+++ b/selfforum-cgi/shared/Posting/_lib.pm
@@ -19,7 +19,7 @@ use vars qw(
 
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 
-use Time::German;
+use Time::German ':overwrite_internal_localtime';
 use XML::DOM;
 
 ################################################################################
diff --git a/selfforum-cgi/shared/Time/German.pm b/selfforum-cgi/shared/Time/German.pm
index 2e323d0..f89599c 100644
--- a/selfforum-cgi/shared/Time/German.pm
+++ b/selfforum-cgi/shared/Time/German.pm
@@ -12,7 +12,8 @@ package Time::German;
 
 use strict;
 use vars qw(
-  @EXPORT
+  @EXPORT_OK
+  %EXPORT_TAGS
   $VERSION
 );
 
@@ -27,7 +28,8 @@ $VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }
 # Export
 #
 use base 'Exporter';
-@EXPORT = qw(localtime);
+@EXPORT_OK   = qw(localtime);
+%EXPORT_TAGS = (overwrite_internal_localtime => 'localtime'); # ;-)) Thanks to Calocybe
 
 ################################################################################
 #
-- 
2.34.1