From 03e918e15295c454bbcd6aa0e3a0459d99090afe Mon Sep 17 00:00:00 2001
From: ndparker <>
Date: Thu, 1 Mar 2001 23:48:19 +0000
Subject: [PATCH 1/1] fixed a bug in ~hr_time functions

---
 selfforum-cgi/shared/Posting/_lib.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm
index 562f37a..5136b21 100644
--- a/selfforum-cgi/shared/Posting/_lib.pm
+++ b/selfforum-cgi/shared/Posting/_lib.pm
@@ -485,8 +485,8 @@ sub save_file ($$) {
 ###########################
 
 sub hr_time ($) {
-  my @month = qw(Januar Februar M\303\244rz April Mail Juni Juli August September Oktober November Dezember);
-                               # ^^^^^^^^ - UTF8 #
+  my @month = (qw(Januar Februar), "M\303\244rz", qw(April Mail Juni Juli August September Oktober November Dezember));
+                                   # ^^^^^^^^ - UTF8 #
 
   my (undef, $min, $hour, $day, $mon, $year) = localtime ($_[0]);
 
@@ -500,8 +500,8 @@ sub short_hr_time ($) {
 }
 
 sub long_hr_time ($) {
-  my @month = qw(Januar Februar M\303\244rz April Mail Juni Juli August September Oktober November Dezember);
-                               # ^^^^^^^^ - UTF8 #
+  my @month = (qw(Januar Februar), "M\303\244rz", qw(April Mail Juni Juli August September Oktober November Dezember));
+                                   # ^^^^^^^^ - UTF8 #
 
   my @wday  = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
   my ($sek, $min, $hour, $day, $mon, $year, $wday) = localtime ($_[0]);
-- 
2.34.1