The following commit has been merged in the master branch:
commit 73459e9e33bca11d170d823f79b389e5996d6aef
Author: Russ Allbery <[email protected]>
Date:   Mon Apr 27 11:10:47 2009 -0700

    Don't report $! when unpack scripts fail
    
    * frontend/lintian:
      + [RA] Stop reporting $! when unpack scripts fail.  It will almost
        never contain anything useful.

diff --git a/debian/changelog b/debian/changelog
index cd502c6..8791d28 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -75,6 +75,10 @@ lintian (2.2.10) UNRELEASED; urgency=low
     + [ADB] Mention the new Standards-Version field available for tests.
       Patch by Raphael Geissert.
 
+  * frontend/lintian:
+    + [RA] Stop reporting $! when unpack scripts fail.  It will almost
+      never contain anything useful.
+
   * lib/Lintian/Collect/Binary.pm:
     + [CW] Add missing 'use Parse::DebianChangelog'.
   * lib/Lintian/Output.pm:
diff --git a/frontend/lintian b/frontend/lintian
index 803653d..f39463c 100755
--- a/frontend/lintian
+++ b/frontend/lintian
@@ -1429,7 +1429,7 @@ foreach my $pkg_info ($schedule->get_all) {
     $act_unpack_level = unpack_pkg($type,$base,$file,$act_unpack_level,
                                   $unpack_level);
     if ($act_unpack_level == -1) {
-       warning("could not unpack package to desired level: $!",
+       warning("could not unpack package to desired level",
                "skipping $action of $long_type package $pkg");
        $exit_code = 2;
        next PACKAGE;
@@ -1460,7 +1460,7 @@ foreach my $pkg_info ($schedule->get_all) {
            # unpack to desired unpack level (if necessary)
            $act_unpack_level = 
unpack_pkg($type,$base,$file,$act_unpack_level,$ci->{'unpack-level'});
            if ($act_unpack_level == -1) {
-               warning("could not unpack package to desired level: $!",
+               warning("could not unpack package to desired level",
                        "skipping $action of $long_type package $pkg");
                $exit_code = 2;
                next PACKAGE;
@@ -1544,7 +1544,7 @@ foreach my $pkg_info ($schedule->get_all) {
            # unpack to desired unpack level (if necessary)
            $act_unpack_level = 
unpack_pkg($type,$base,$file,$act_unpack_level,$ci->{'unpack-level'});
            if ($act_unpack_level == -1) {
-               warning("could not unpack package to desired level: $!",
+               warning("could not unpack package to desired level",
                        "skipping $action of $long_type package $pkg");
                $exit_code = 2;
                next PACKAGE;

-- 
Debian package checker


-- 
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]

Reply via email to