Package: bins
Version: 1.1.29-16
Severity: normal
Tags: patch

   > /usr/bin/bins_edit 
   UNIVERSAL does not export anything at /usr/bin/bins_edit line 29.
   BEGIN failed--compilation aborted at /usr/bin/bins_edit line 29.

The attached patch solves that problem.

-- System Information:
Debian Release: stretch/sid
  APT prefers unstable
  APT policy: (500, 'unstable'), (500, 'testing'), (1, 'experimental')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 4.5.7 (SMP w/8 CPU cores)
Locale: LANG=de_DE, LC_CTYPE=de_DE (charmap=ISO-8859-1)
Shell: /bin/sh linked to /bin/dash
Init: sysvinit (via /sbin/init)

Versions of packages bins depends on:
ii  libhtml-clean-perl                   0.8-12
ii  libhtml-parser-perl                  3.72-2
ii  libhtml-template-perl                2.95-2
ii  libimage-info-perl                   1.28-1.2
ii  libimage-magick-perl [perlmagick]    8:6.8.9.9-7.2
ii  libimage-size-perl                   3.300-1
ii  libio-string-perl                    1.08-3
ii  libjpeg-turbo-progs [libjpeg-progs]  1:1.5.0-1
ii  liblocale-gettext-perl               1.07-3
ii  libtext-iconv-perl                   1.7-5+b3
ii  libtext-unaccent-perl                1.08-1.2
ii  libtimedate-perl                     2.3000-2
ii  liburi-perl                          1.71-1
ii  libxml-grove-perl                    0.46alpha-12
ii  libxml-handler-yawriter-perl         0.23-6
ii  libxml-perl                          0.08-2
ii  libxml-writer-perl                   0.625-1
ii  libxml-xql-perl                      0.68-6
ii  perlmagick                           8:6.8.9.9-7.2

bins recommends no packages.

bins suggests no packages.

-- no debconf information

-- 
Klaus Ethgen                                       http://www.ethgen.ch/
pub  4096R/4E20AF1C 2011-05-16            Klaus Ethgen <kl...@ethgen.ch>
Fingerprint: 85D4 CA42 952C 949B 1753  62B3 79D0 B06F 4E20 AF1C
--- /usr/bin/bins_edit  2012-08-21 22:23:45.000000000 +0100
+++ bins_edit   2016-09-11 23:00:59.857022599 +0100
@@ -26,7 +26,6 @@
 
 use Getopt::Long;
 use IO::File;
-use UNIVERSAL qw(isa);
 
 # XML parsing & writing
 use XML::Grove;
@@ -198,7 +197,7 @@
   my $fieldValue;
   foreach my $element
     (@{$document->at_path('/'.$fileType.'/description')->{Contents}}) {
-      if (isa($element, 'XML::Grove::Element') && $element->{Name} eq "field") 
{
+      if ($element->isa('XML::Grove::Element') && $element->{Name} eq "field") 
{
        $fieldName = $element->{Attributes}{'name'};
        $fieldValue = "";
        if ($fieldName eq $field) {

Attachment: signature.asc
Description: PGP signature

Reply via email to