diff options
author | Guillem Jover <guillem@debian.org> | 2013-01-09 21:46:21 +0100 |
---|---|---|
committer | Guillem Jover <guillem@debian.org> | 2013-11-24 06:01:05 +0100 |
commit | 0e6111a3af79ba1fc1959535780ee420e5dab651 (patch) | |
tree | 02f69ebddf03a96a9c4ec3cb1ebf6373b872ade0 /scripts/dpkg-shlibdeps.pl | |
parent | 9a1e6db62b37c76f609e012ae4e86018def587de (diff) | |
download | dpkg-0e6111a3af79ba1fc1959535780ee420e5dab651.tar.gz |
perl: Always check open() return value
Fixes InputOutput::RequireCheckedOpen.
Warned-by: perlcritic
Diffstat (limited to 'scripts/dpkg-shlibdeps.pl')
-rwxr-xr-x | scripts/dpkg-shlibdeps.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/dpkg-shlibdeps.pl b/scripts/dpkg-shlibdeps.pl index 3024c9616..0b92fe51f 100755 --- a/scripts/dpkg-shlibdeps.pl +++ b/scripts/dpkg-shlibdeps.pl @@ -846,7 +846,8 @@ sub find_packages { if (!$pid) { # Child process running dpkg --search and discarding errors close STDERR; - open STDERR, '>', '/dev/null'; + open STDERR, '>', '/dev/null' + or syserr(_g('cannot open file %s'), '/dev/null'); $ENV{LC_ALL} = 'C'; exec('dpkg', '--search', '--', @files) || syserr(_g('unable to execute %s'), 'dpkg'); |