perl: Surround FileHandles with braces in print calls

Fixes InputOutput::RequireBracedFileHandleWithPrint.

Warned-by: perlcritic

1 files changed, 2 insertions, 2 deletions

diff --git a/scripts/dpkg-distaddfile.pl b/scripts/dpkg-distaddfile.pl
index 233f12ecd..cca9335af 100755
--- a/scripts/dpkg-distaddfile.pl
+++ b/scripts/dpkg-distaddfile.pl
@@ -89,14 +89,14 @@ if (open(my $fileslist_fh, '<', $fileslistfile)) {
     while (<$fileslist_fh>) {
         s/\n$//;
         next if m/^(\S+) / && $1 eq $file;
-        print($fileslistnew_fh "$_\n")
+        print { $fileslistnew_fh } "$_\n"
             or syserr(_g('copy old entry to new files list file'));
     }
     close $fileslist_fh or syserr(_g('cannot close %s'), $fileslistfile);
 } elsif ($! != ENOENT) {
     syserr(_g('read old files list file'));
 }
-print($fileslistnew_fh "$file $section $priority\n")
+print { $fileslistnew_fh } "$file $section $priority\n"
     or syserr(_g('write new entry to new files list file'));
 close($fileslistnew_fh) or syserr(_g('close new files list file'));
 rename("$fileslistfile.new", $fileslistfile)