changed the export mechanism of Time::German - Thanks a lot to Calocybe ;-))

diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm
index 1f6de859c7bedbd67e3eb5f54ba1b2ac0be7f9a0..e89a0c19df74d607a169f1debf8442d329df67ac 100644 (file)
--- 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 Encode::Plain; $Encode::Plain::utf8 = 1;
 

-use Time::German;
+use Time::German ':overwrite_internal_localtime';

 use XML::DOM;
 
 ################################################################################
 use XML::DOM;
 
 ################################################################################

diff --git a/selfforum-cgi/shared/Time/German.pm b/selfforum-cgi/shared/Time/German.pm
index 2e323d0dbffd6c5d41a1570e52da496c246d17cd..f89599c936e792ae93c63c5f37cbbd6606359291 100644 (file)
--- 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(
 
 use strict;
 use vars qw(

-  @EXPORT
+  @EXPORT_OK
+  %EXPORT_TAGS

   $VERSION
 );
 
   $VERSION
 );
 


@@ -27,7 +28,8 @@ $VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }
 # Export
 #
 use base 'Exporter';
 # Export
 #
 use base 'Exporter';

-@EXPORT = qw(localtime);
+@EXPORT_OK   = qw(localtime);
+%EXPORT_TAGS = (overwrite_internal_localtime => 'localtime'); # ;-)) Thanks to Calocybe

 
 ################################################################################
 #
 
 ################################################################################
 #