Use proper variables instead of barewords for filehandles

Fixes InputOutput::ProhibitBarewordFileHandles.

Warned-by: perlcritic

1 files changed, 3 insertions, 3 deletions

diff --git a/scripts/dpkg-mergechangelogs.pl b/scripts/dpkg-mergechangelogs.pl
index c19de08f3..d6a5d871c 100755
--- a/scripts/dpkg-mergechangelogs.pl
+++ b/scripts/dpkg-mergechangelogs.pl
@@ -125,9 +125,9 @@ while (1) {
 }
 
 if (defined($out_file) and $out_file ne "-") {
-    open(OUT, ">", $out_file) || syserr(_g("cannot write %s"), $out_file);
-    print OUT ((blessed $_) ? "$_" : "$_\n") foreach @result;
-    close(OUT) || syserr(_g("cannot write %s"), $out_file);
+    open(my $out_fh, ">", $out_file) || syserr(_g("cannot write %s"), $out_file);
+    print $out_fh ((blessed $_) ? "$_" : "$_\n") foreach @result;
+    close($out_fh) || syserr(_g("cannot write %s"), $out_file);
 } else {
     print ((blessed $_) ? "$_" : "$_\n") foreach @result;
 }