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

[selfforum.git] / selfforum-cgi / shared / Time / German.pm

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(
-  @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
 
 ################################################################################
 #