* scripts/dpkg-shlibdeps.pl: Move syserr:s to be or'ed after exec:s.

diff --git a/ChangeLog b/ChangeLog
index 35cbb46c686157bef02a76e438df03bb75c16b82..fc3f127ea5c3de17710bff9722cf2e1baac1ccd7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-02-12  Guillem Jover  <guillem@debian.org>
+
+       * scripts/dpkg-shlibdeps.pl: Move syserr:s to be or'ed after exec:s.
+
 2007-02-12  Guillem Jover  <guillem@debian.org>
 
        * scripts/controllib.pl (outputclose): Change argument from a boolean

diff --git a/scripts/dpkg-shlibdeps.pl b/scripts/dpkg-shlibdeps.pl
index d22db19c9c95d77a43d7c6ac9e425ab27200d1f3..04a3c709b03f894293931c67fa5922ccdd3b8d9e 100755 (executable)
--- a/scripts/dpkg-shlibdeps.pl
+++ b/scripts/dpkg-shlibdeps.pl
@@ -173,8 +173,8 @@ for ($i=0;$i<=$#exec;$i++) {
     # Now we get the direct deps of the program
     defined(my $c= open(P,"-|")) || syserr(_g("cannot fork for objdump"));
     if (!$c) {
-       exec("objdump","-p","--",$exec[$i]);
-       syserr(_g("cannot exec objdump"));
+       exec("objdump", "-p", "--", $exec[$i]) or
+           syserr(_g("cannot exec objdump"));
     }
     while (<P>) {
        chomp;
@@ -266,8 +266,8 @@ if ($#libfiles >= 0) {
        close STDERR; # we don't need to see dpkg's errors
        open STDERR, "> /dev/null";
        $ENV{LC_ALL} = "C";
-       exec("dpkg","--search","--",@libfiles);
-       syserr(_g("cannot exec dpkg"));
+       exec("dpkg", "--search", "--", @libfiles) or
+           syserr(_g("cannot exec dpkg"));
     }
     while (<P>) {
        chomp;
@@ -331,8 +331,8 @@ sub get_format {
     } else {
        defined(my $c= open(P,"-|")) || syserr(_g("cannot fork for objdump"));
        if (!$c) {
-           exec("objdump","-a","--",$file);
-           syserr(_g("cannot exec objdump"));
+           exec("objdump", "-a", "--", $file) or
+               syserr(_g("cannot exec objdump"));
        }
        while (<P>) {
            chomp;