From 4eb4812344ca8dcd02d4e305faa913835fafb903 Mon Sep 17 00:00:00 2001
From: Raphael Hertzog <hertzog@debian.org>
Date: Mon, 2 Jul 2007 13:26:10 +0000
Subject: [PATCH] - Fix check of fork's success in dpkg-shlibdeps (for dpkg
 --search). - Make dpkg-gensymbols.pl executable.

---
 scripts/dpkg-gensymbols.pl | 0
 scripts/dpkg-shlibdeps.pl  | 3 ++-
 2 files changed, 2 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 scripts/dpkg-gensymbols.pl

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;
-- 
2.39.5