diff options
author | Guillem Jover <guillem@debian.org> | 2014-08-30 02:31:29 +0200 |
---|---|---|
committer | Guillem Jover <guillem@debian.org> | 2014-10-06 00:27:22 +0200 |
commit | fe60460326c3e37d21bdb031d063b84780c82eba (patch) | |
tree | b80e977c581bd64973d035f171dd26ad510a3a2c /scripts/dpkg-shlibdeps.pl | |
parent | c6df3fdc4f57da160c5bb6877a7e9aea93cc2eb7 (diff) | |
download | dpkg-fe60460326c3e37d21bdb031d063b84780c82eba.tar.gz |
perl: Do not use the topic variable unnecessarily
Fixes BuiltinFunctions::ProhibitUselessTopic
and RegularExpressions::ProhibitUselessTopic.
Warned-by: perlcritic
Diffstat (limited to 'scripts/dpkg-shlibdeps.pl')
-rwxr-xr-x | scripts/dpkg-shlibdeps.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/dpkg-shlibdeps.pl b/scripts/dpkg-shlibdeps.pl index 8c5bb53fe..bda1e0962 100755 --- a/scripts/dpkg-shlibdeps.pl +++ b/scripts/dpkg-shlibdeps.pl @@ -851,8 +851,8 @@ sub find_packages { exec('dpkg', '--search', '--', @files) or syserr(_g('unable to execute %s'), 'dpkg'); } - while (defined($_ = <$dpkg_fh>)) { - chomp($_); + while (<$dpkg_fh>) { + chomp; if (m/^local diversion |^diversion by/) { warning(_g('diversions involved - output may be incorrect')); print { *STDERR } " $_\n" |