Bug 21395: Make perlcritic happy

[koha.git] / xt / single_quotes.t

diff --git a/xt/single_quotes.t b/xt/single_quotes.t
index 4c6a9e8..402b51c 100755 (executable)
--- a/xt/single_quotes.t
+++ b/xt/single_quotes.t
@@ -42,7 +42,7 @@ close $dh;
 my @files;
 find(
     sub {
-        open my $fh, $_ or die "Could not open $_: $!";
+        open my $fh, '<', $_ or die "Could not open $_: $!";
         my @lines = sort grep /\_\(\'/, <$fh>;
         push @files, { name => "$_", lines => \@lines } if @lines;
     },