pkgsrc-ng/lang/perl5/patches/patch-locale.c
2014-08-11 13:27:10 +02:00

19 lines
552 B
C

$NetBSD: patch-locale.c,v 1.1 2014/03/14 22:41:10 ryoon Exp $
--- locale.c.orig 2014-01-06 22:46:45.000000000 +0000
+++ locale.c
@@ -517,6 +517,13 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
char *codeset = NULL;
#if defined(HAS_NL_LANGINFO) && defined(CODESET)
codeset = nl_langinfo(CODESET);
+/*
+ * SCO OpenServer 5.0.7/3.2's nl_langinfo(CODESET) always returns empty.
+ */
+#if defined(_SCO_DS)
+ strncpy(codeset, "646", 3);
+ codeset[3] = '\0';
+#endif
#endif
if (codeset)
utf8locale = (foldEQ(codeset, STR_WITH_LEN("UTF-8"))