Package: libxml-encoding-perl Version: 1.01 Severity: important Tags: patch
Perl 5.10 removes the deprecated pseudo-hashes, but this package still
uses them, in the compile_encoding program, line 38.
Symptom:
% compile_encoding /usr/share/libxml-encoding-perl/iso-8859-6.xml -o ./foo
Not a HASH reference at /usr/bin/compile_encoding line 42.
zsh: exit 255 compile_encoding /usr/share/libxml-encoding-perl/iso-8859-6.xml
-o./ foo
Fix:
--- /usr/bin/compile_encoding 2008-01-01 15:01:12.000000000 -0500
+++ ./compile_encoding 2008-01-01 15:18:35.000000000 -0500
@@ -33,9 +33,10 @@
use fields qw(min max map explen);
sub new {
- my $class = shift;
- no strict 'refs';
- my $pfxmap = [\%{"${class}::FIELDS"}];
+ my Pfxmap $pfxmap = shift;
+ unless (ref $pfxmap) {
+ $pfxmap = fields::new($pfxmap);
+ }
while (@_) {
my $key = shift;
-- System Information:
Debian Release: lenny/sid
APT prefers unstable
APT policy: (500, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.23-1-686 (SMP w/1 CPU core)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
--
see shy jo
signature.asc
Description: Digital signature
