blob: 9b13daf9487f1fc9c0aedc0180a44c05d06b476a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
$NetBSD: patch-ab,v 1.3 2002/09/13 17:58:27 wiz Exp $
--- bins_edit.orig Sat Aug 24 17:31:58 2002
+++ bins_edit
@@ -42,13 +42,14 @@ use HTML::Entities;
my $verbose = 1;
my $html=0;
-my $localEncoding = `locale charmap`;
-chop($localEncoding);
-if (! $localEncoding or ($localEncoding eq "ANSI_X3.4-1968")) {
- # ANSI is unspeakably primitive, promote it.
- $localEncoding = "LATIN1";
- print "Forcing encoding to $localEncoding\n" if ($verbose >=2);
-}
+# XXX no "locale" command in NetBSD
+#my $localEncoding = `locale charmap`;
+#chop($localEncoding);
+#if (! $localEncoding or ($localEncoding eq "ANSI_X3.4-1968")) {
+# # ANSI is unspeakably primitive, promote it.
+my $localEncoding = "LATIN1";
+# print "Forcing encoding to $localEncoding\n" if ($verbose >=2);
+#}
my $converter = Text::Iconv->new($localEncoding, "UTF-8");
# decode HTML entites which doesn't exist in XML
|
