blob: f0b37bc14222ab92489b126f1fb3916fa7b93827 (
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
27
28
29
30
31
32
33
34
|
$NetBSD: patch-ab,v 1.4 2002/09/24 02:01:30 dmcmahill Exp $
no 'locale' command on netbsd so deal with `locale charmap` not returning
correctly.
--- bins_edit.orig Sat Sep 21 09:50:14 2002
+++ bins_edit
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/pkg/bin/perl -w
# bins_edit for BINS Photo Album version 1.1.17
# Copyright (C) 2001,2002 Jérôme Sautret (Jerome@Sautret.org)
@@ -42,12 +42,18 @@ use HTML::Entities;
my $verbose = 1;
my $html=0;
-my $localEncoding = `locale charmap`;
-chop($localEncoding);
+my $localEncoding;
+$localEncoding = `locale charmap`;
+if ($? != 0 ) {
+ $localEncoding = "LATIN1";
+}
+else {
if (! $localEncoding or ($localEncoding eq "ANSI_X3.4-1968")) {
+ chop($localEncoding);
# ANSI is unspeakably primitive, promote it.
$localEncoding = "LATIN1";
print "Forcing encoding to $localEncoding\n" if ($verbose >=2);
+}
}
my $converter = Text::Iconv->new($localEncoding, "UTF-8");
|
