From: Raphael Hertzog <hertzog@debian.org>
Date: Mon, 2 Jul 2007 13:26:10 +0000 (+0000)
Subject: - Fix check of fork's success in dpkg-shlibdeps (for dpkg --search).
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4eb4812344ca8dcd02d4e305faa913835fafb903;p=dpkg

- Fix check of fork's success in dpkg-shlibdeps (for dpkg --search).
- Make dpkg-gensymbols.pl executable.
---

diff --git a/scripts/dpkg-gensymbols.pl b/scripts/dpkg-gensymbols.pl
old mode 100644
new mode 100755
diff --git a/scripts/dpkg-shlibdeps.pl b/scripts/dpkg-shlibdeps.pl
index 10a1bf22..52a7b097 100755
--- a/scripts/dpkg-shlibdeps.pl
+++ b/scripts/dpkg-shlibdeps.pl
@@ -403,7 +403,8 @@ sub my_find_library {
 sub find_packages {
     my @files = (@_);
     my $pkgmatch = {};
-    my $pid = open(DPKG, "-|") || syserr(_g("cannot fork for dpkg --search"));;
+    my $pid = open(DPKG, "-|");
+    syserr(_g("cannot fork for dpkg --search")) unless defined($pid);
     if (!$pid) {
 	# Child process running dpkg --search and discarding errors
 	close STDERR;