dougm 01/12/01 12:49:16
Modified: perl-framework/t/ssl varlookup.t
Log:
fix bug in TIME_{MON,DAY} formatting to match mod_ssl output
Revision Changes Path
1.5 +2 -2 httpd-test/perl-framework/t/ssl/varlookup.t
Index: varlookup.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/varlookup.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- varlookup.t 2001/11/17 02:23:57 1.4
+++ varlookup.t 2001/12/01 20:49:16 1.5
@@ -131,8 +131,8 @@
#mod_ssl specific variables
TIME_YEAR $time->year()+1900
-TIME_MON $time->mon()+1
-TIME_DAY $time->mday()
+TIME_MON sprintf "%02d", $time->mon()+1
+TIME_DAY sprintf "%02d", $time->mday()
TIME_WDAY $time->wday()
TIME
TIME_HOUR
