(Retracted by #9812.)

p4raw-id: //depot/perl@9811

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 39d6f40..312ecb2 100644 (file)
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -3678,9 +3678,13 @@ tzset()
 void
 tzname()
     PPCODE:
+#ifdef HAS_TZNAME
        EXTEND(SP,2);
        PUSHs(sv_2mortal(newSVpvn(tzname[0],strlen(tzname[0]))));
        PUSHs(sv_2mortal(newSVpvn(tzname[1],strlen(tzname[1]))));
+#else
+       not_here("tzname");
+#endif
 
 SysRet
 access(filename, mode)