Const Boy II: The Localizing

[p5sagit/p5-mst-13.2.git] / util.c

diff --git a/util.c b/util.c
index b5a2d49..d5c074f 100644 (file)
--- 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
 }