perl: Surround FileHandles with braces in print calls

Fixes InputOutput::RequireBracedFileHandleWithPrint.

Warned-by: perlcritic

1 files changed, 3 insertions, 3 deletions

diff --git a/src/t/100_dpkg_divert.t b/src/t/100_dpkg_divert.t
index d9ccd9a7b..56a64cc28 100644
--- a/src/t/100_dpkg_divert.t
+++ b/src/t/100_dpkg_divert.t
@@ -51,7 +51,7 @@ sub install_diversions {
     my ($txt) = @_;
     open(my $db_fh, '>', "$admindir/diversions")
         or die "cannot create $admindir/diversions";
-    print $db_fh $txt;
+    print { $db_fh } $txt;
     close($db_fh);
 }
 
@@ -60,13 +60,13 @@ sub install_filelist {
     open(my $fileslist_fh, '>', "$admindir/info/$pkg.list")
         or die "cannot create $admindir/info/$pkg.list";
     for my $file (@files) {
-        print $fileslist_fh "$file\n";
+        print { $fileslist_fh } "$file\n";
     }
     close($fileslist_fh);
     # Only installed packages have their files list considered.
     open(my $status_fh, '>>', "$admindir/status")
         or die "cannot append to $admindir/status";
-    print $status_fh <<"EOF";
+    print { $status_fh } <<"EOF";
 Package: $pkg
 Status: install ok installed
 Version: 0