Package: binfmt-support
Version: 1.2.9
Severity: grave
Tags: patch
Justification: renders package unusable

Hi,

when upgrading, I got the following error:
Richte binfmt-support ein (1.2.9) ...
syntax error at /usr/share/perl5/Binfmt/Format.pm line 138, near "'')"
Compilation failed in require at /usr/sbin/update-binfmts line 25.
BEGIN failed--compilation aborted at /usr/sbin/update-binfmts line 25.
Enabling additional executable binary formats: binfmt-supportsyntax error at 
/usr/share/perl5/Binfmt/Format.pm line 138,
 near "'')"
Compilation failed in require at /usr/sbin/update-binfmts line 25.
BEGIN failed--compilation aborted at /usr/sbin/update-binfmts line 25.
 failed!
invoke-rc.d: initscript binfmt-support, action "start" failed.

I attached a patch that gets rid of the syntax error. After that I was
able to execute "/etc/init.d/binfmt-support start" without errors.

There still was a little warning, I don't know if it is harmful or not:
$ /etc/init.d/bimfmt-support start
Enabling additional executable binary formats: binfmt-supportPossible attempt 
to separate words with commas at /usr/sbin/update-binfmts line 205.
Possible attempt to separate words with commas at /usr/sbin/update-binfmts line 
205.


Regards,
  Bastian

-- System Information:
Debian Release: lenny/sid
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: i386 (i686)

Kernel: Linux 2.6.18treasure14 (PREEMPT)
Locale: [EMAIL PROTECTED], [EMAIL PROTECTED] (charmap=ISO-8859-15)
Shell: /bin/sh linked to /bin/bash

Versions of packages binfmt-support depends on:
ii  lsb-base                      3.1-23.1   Linux Standard Base 3.1 init scrip
ii  perl                          5.8.8-7    Larry Wall's Practical Extraction 

binfmt-support recommends no packages.

-- no debconf information
--- Format.pm.orig      2007-04-09 11:22:21.000000000 +0200
+++ Format.pm   2007-04-09 11:22:26.000000000 +0200
@@ -135,7 +135,7 @@
     my $self = shift;
     for my $field (@fields, @optional_fields) {
        printf "%12s = %s\n", $field,
-           (defined $self->{$field}) ? $self->{$field} : '');
+           (defined $self->{$field}) ? $self->{$field} : '';
     }
 }
 

Reply via email to