Const Boy II: The Localizing

Message-ID: <20050622144059.GA19598@petdance.com>

p4raw-id: //depot/perl@24945

1 files changed, 3 insertions, 1 deletions

diff --git a/util.c b/util.c
index b5a2d49d5b..d5c074fa74 100644
--- a/util.c
+++ b/util.c
@@ -3340,11 +3340,13 @@ Perl_init_tm(pTHX_ struct tm *ptm)	/* see mktime, strftime and asctime */
 {
 #ifdef HAS_TM_TM_ZONE
     Time_t now;
-    struct tm* my_tm;
+    const struct tm* my_tm;
     (void)time(&now);
     my_tm = localtime(&now);
     if (my_tm)
         Copy(my_tm, ptm, 1, struct tm);
+#else
+    PERL_UNUSED_ARG(ptm);
 #endif
 }