Pileus Git - ~andy/sunrise/blob - dev-util/lintian/files/lintian-2.5.10.3-FrontendUtil.pm.patch

   1 --- lib/Lintian/Internal/FrontendUtil.pm        2012-11-26 11:39:38.000000000 -0600
   2 +++ lib/Lintian/Internal/FrontendUtil.pm        2012-11-26 10:42:58.415371245 -0600
   3 @@ -44,11 +44,8 @@
   4      my $par;
   5      chomp($par = `dpkg-vendor --vendor "$cur" --query Parent`);
   6      # dpkg-vendor returns 1 if there is no parent (because the query failed),
   7 -    # which we translate into ''; but other values suggests an internal
   8 -    # dpkg-vendor error.
   9 +    # which we translate into '';
  10      if ( $? ){
  11 -        my $err = ($? >> 8) & 256;
  12 -        fail('dpkg-vendor failed (status: ' .  ($? >> 8). ").\n") if $err != 1;
  13          return '';
  14      }
  15      return $par;
  16 @@ -81,7 +78,9 @@
  17      # Use dpkg-vendor if present (unless we are testing our libdpkg-perl code)
  18      if(check_path('dpkg-vendor') && !check_test_feature('vendor-libdpkg-perl')){
  19          chomp($vendor = `dpkg-vendor --query Vendor`);
  20 -        fail('dpkg-vendor failed (status: ' .  ($? >> 8). ").\n") if $?;
  21 +       if ( $? ) {
  22 +               fail('dpkg-vendor failed (status: ' .  ($? >> 8). ").\n");
  23 +       }
  24          $qparent = \&_find_parent_vendor_dpkg_vendor;
  25      } else {
  26          require Dpkg::Vendor;