From f3c385fb61b3538b071a35315bc09274bd754894 Mon Sep 17 00:00:00 2001
From: Sebastian Harl <sh@tokkee.org>
Date: Fri, 5 Oct 2007 19:37:38 +0200
Subject: [PATCH] check_plugins.pl: Fixed open{,dir}() error handling.

If open{,dir}() fails, the {file,dir}handle is _not_ an undefined value.
The functions simply return a false value in that case.
---
 debian/check_plugins.pl | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/debian/check_plugins.pl b/debian/check_plugins.pl
index c173aee..eac3b5d 100755
--- a/debian/check_plugins.pl
+++ b/debian/check_plugins.pl
@@ -32,9 +32,9 @@ my $libdir = 'src/.libs';
 
 my $plugins = {};
 
-opendir(my $srcs, $srcdir);
+my ($srcs, $libs) = (undef, undef);
 
-if (! $srcs) {
+if (! opendir($srcs, $srcdir)) {
 	print STDERR "Could not open directory '$srcdir': $!\n"
 		. "Make sure you are in the toplevel source directory.\n";
 	exit 1;
@@ -46,10 +46,9 @@ while (my $dirent = readdir($srcs)) {
 	}
 
 	my $name = $1;
+	my $src  = undef;
 
-	open(my $src, "<", "$srcdir/$dirent");
-
-	if (! $src) {
+	if (! open($src, "<", "$srcdir/$dirent")) {
 		print STDERR "Unable to open '$srcdir/$dirent': $!\n";
 		next;
 	}
@@ -67,9 +66,7 @@ while (my $dirent = readdir($srcs)) {
 
 closedir($srcs);
 
-opendir(my $libs, $libdir);
-
-if (! $libs) {
+if (! opendir($libs, $libdir)) {
 	print STDERR "Could not open directory '$libdir': $!\n"
 		. "Make sure you ran 'make'.\n";
 	exit 1;
@@ -81,15 +78,14 @@ while (my $dirent = readdir($libs)) {
 	}
 
 	my $name = $1;
+	my $nm   = undef;
 
 	if (! defined $plugins->{$name}) {
 		print STDERR "No information available for plugin '$name'!\n";
 		next;
 	}
 
-	open(my $nm, "-|", "nm $libdir/$dirent");
-
-	if (! $nm) {
+	if (! open($nm, "-|", "nm $libdir/$dirent")) {
 		print STDERR "Unable to open pipe from nm(1): $!\n";
 		next;
 	}
-- 
2.30.2