Nicolas Lœuillet : Fichier /usr/share/perl5/Debconf/Encoding.pm d’origine
lundi 25 août 2014 à 06:44Ma raspbian était toute cassée, la faute à un fichier /usr/share/perl5/Debconf/Encoding.pm tout pourri (pourquoi ? va comprendre Charles).
Si ça vous arrive, voici le fichier propre (un grand merci à Arnaud) :
#!/usr/bin/perl # This file was preprocessed, do not edit! package Debconf::Encoding; use strict; use warnings; our $charmap; BEGIN { no warnings; eval q{ use Text::Iconv }; use warnings; if (! $@) { $charmap = `locale charmap`; chomp $charmap; } no warnings; eval q{ use Text::WrapI18N; use Text::CharWidth }; use warnings; if (! $@ && Text::CharWidth::mblen(" a ") == 1) { *wrap = *Text::WrapI18N::wrap; *columns = *Text::WrapI18N::columns; *width = *Text::CharWidth::mbswidth; } else { require Text::Wrap; require Text::Tabs; sub _wrap { return Text::Tabs::expand(Text::Wrap::wrap(@_)) } *wrap = *_wrap; *columns = *Text::Wrap::columns; sub _dumbwidth { length shift } *width = *_dumbwidth; } } use base qw(Exporter); our @EXPORT_OK=qw(wrap $columns width convert $charmap to_Unicode); my $converter; my $old_input_charmap; sub convert { my $input_charmap = shift; my $string = shift; return unless defined $charmap; if (! defined $old_input_charmap || $input_charmap ne $old_input_charmap) { $converter = Text::Iconv->new($input_charmap, $charmap); $old_input_charmap = $input_charmap; } return $converter->convert($string); } my $unicode_conv; sub to_Unicode { my $string = shift; my $result; return $string if utf8::is_utf8($string); if (!defined $unicode_conv) { $unicode_conv = Text::Iconv->new($charmap, "UTF-8"); } $result = $unicode_conv->convert($string); utf8::decode($result); return $result; } 1
Original post of Nicolas Lœuillet.Votez pour ce billet sur Planet Libre.
Articles similaires
- Nicolas Lœuillet : Tout cassé ma Raspbian (24/08/2014)
- Nicolas Lœuillet : Premiers essais du Raspberry avec arkOS (avec une Freebox Crystal) (27/07/2014)
- Nicolas Lœuillet : La config de mon Raspberry PI (18/08/2014)
- Nicolas Lœuillet : Lychee, rapide mais gourmand. Et si je me lançais finalement ? (26/08/2014)