Bug 17801: Use issuedate for limits in Most Circulated Items

[srvgit] / xt / single_quotes.t

diff --git a/xt/single_quotes.t b/xt/single_quotes.t
index 3c079bb..402b51c 100755 (executable)
--- a/xt/single_quotes.t
+++ b/xt/single_quotes.t
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use warnings;
-use strict;
+use Modern::Perl;
 use Test::More tests => 1;
 use File::Find;
 
@@ -43,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;
     },