This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence a warning in time64.c. Need to downgrade a const char *
authorSteve Peters <steve@fisharerojo.org>
Thu, 19 Aug 2010 19:47:41 +0000 (14:47 -0500)
committerSteve Peters <steve@fisharerojo.org>
Thu, 19 Aug 2010 19:47:41 +0000 (14:47 -0500)
to a char *.

time64.c

index 1d43f39..e1ceddf 100644 (file)
--- a/time64.c
+++ b/time64.c
@@ -368,7 +368,7 @@ static struct TM *S_gmtime64_r (const Time64_T *in_time, struct TM *p)
     p->tm_isdst  = 0;
 
 #ifdef HAS_TM_TM_ZONE
-    p->tm_zone   = "UTC";
+    p->tm_zone   = (char *)"UTC";
 #endif
 
     v_tm_sec  = (int)fmod(time, 60.0);