X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/84497798a93953681eec330e3fc98068adbff4d4..e4c8bdafb631e419bdfdad87b6d80e17470044c4:/selfforum-cgi/shared/Time/German.pm?ds=sidebyside

diff --git a/selfforum-cgi/shared/Time/German.pm b/selfforum-cgi/shared/Time/German.pm
index 52d7153..f89599c 100644
--- a/selfforum-cgi/shared/Time/German.pm
+++ b/selfforum-cgi/shared/Time/German.pm
@@ -11,13 +11,25 @@ package Time::German;
 ################################################################################
 
 use strict;
+use vars qw(
+  @EXPORT_OK
+  %EXPORT_TAGS
+  $VERSION
+);
+
+################################################################################
+#
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 ################################################################################
 #
 # Export
 #
 use base 'Exporter';
-@Time::German::EXPORT = qw(germantime);
+@EXPORT_OK   = qw(localtime);
+%EXPORT_TAGS = (overwrite_internal_localtime => 'localtime'); # ;-)) Thanks to Calocybe
 
 ################################################################################
 #
@@ -42,7 +54,7 @@ my %summertime = (
   95 => [84, 266]
 );
 
-### germantime () ##############################################################
+### localtime () ###############################################################
 #
 # like 'localtime', but system independent
 #
@@ -50,7 +62,7 @@ my %summertime = (
 #
 # Return: same as localtime, but german time ;-)
 #
-sub germantime (;$) {
+sub localtime (;$) {
   my $time = shift;
   $time = time unless defined $time;