open file updated

fea6cf69 · Tiago Grego · 58be8878 · fea6cf69
Commit fea6cf69 authored Sep 28, 2018 by Tiago Grego
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

modules/t/rdf/bulkfetcherfeature_translator.t modules/t/rdf/bulkfetcherfeature_translator.t +3 -3

No files found.
--- a/modules/t/rdf/bulkfetcherfeature_translator.t
+++ b/modules/t/rdf/bulkfetcherfeature_translator.t
@@ -186,9 +186,9 @@ sub slurp_file {
  my $string;
  {
    local $/=undef;
-    open FILE, "<$file" or die "Couldn't open file: $!";
-    $string = <FILE>;
-    close FILE;
+    open my $FILE, '<', $file or die "Couldn't open file: $!";
+    $string = <$FILE>;
+    close $FILE;
  }
  
  return $string;