Replace File::Slurp with File::Slurper

diff --git a/Makefile.PL b/Makefile.PL
index 73fe222870f4281e1abf738ef489a4c779958cd8..0c59c05342530133d64aa70694478280eddf69b7 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -11,9 +11,9 @@ WriteMakefile(
        SIGN             => 1,
        EXE_FILES        => [ 'bin/bro-perl' ],
        PREREQ_PM        => {
-               'File::Slurp'  => '0',
-               'Getopt::Long' => '0',
-               'Time::HiRes'  => '0',
+               'File::Slurper' => '0',
+               'Getopt::Long'  => '0',
+               'Time::HiRes'   => '0',
        },
        BUILD_REQUIRES   => {},
        INC              => '-Ibrotli/c/include',

diff --git a/README b/README
index fe25b7d34c8bb0e54bca8de314e114eec34aeb68..594824aa29af5a5202cf55b532c4dc767e0240f2 100644 (file)
--- a/README
+++ b/README
@@ -23,7 +23,7 @@ DEPENDENCIES
 
 This module requires these other modules and libraries:
 
-* File::Slurp
+* File::Slurper
 
 Additionally, it requires a C compiler.
 

diff --git a/bin/bro-perl b/bin/bro-perl
index ad35af8b20a7c6307c879b4e57cdedc7a18dc452..fcd82192da7b78ee27f00066988223604cd9814b 100755 (executable)
--- a/bin/bro-perl
+++ b/bin/bro-perl
@@ -6,7 +6,7 @@ use 5.014;
 
 use bytes ();
 
-use File::Slurp;
+use File::Slurper qw/read_binary/;
 use Getopt::Long;
 use Time::HiRes qw/ gettimeofday tv_interval /;
 
@@ -83,7 +83,7 @@ for ( 1..$REPEAT ) {
             print $ofh $encoded;
         }
         else {
-            my $decoded = read_file( $ifh );
+            my $decoded = read_binary( $ifh );
             my $encoded = bro( $decoded, $QUALITY, $WINDOW );
             $total_size += bytes::length( $decoded );
             write_file( $ofh, $encoded );

diff --git a/t/01-uncompress.t b/t/01-uncompress.t
index 28907ca0ffd6618acab8d0ddd70e2b1172372fec..c29fa6e28401f0b7015ef49d170f2d633073f284 100644 (file)
--- a/t/01-uncompress.t
+++ b/t/01-uncompress.t
@@ -3,15 +3,15 @@ use v5.14;
 use warnings;
 
 use Test::More tests => 84;
-use File::Slurp;
+use File::Slurper qw/read_binary/;
 
 use IO::Uncompress::Brotli;
 
 for my $test (<brotli/tests/testdata/*.compressed*>) {
        my ($expected) = $test =~ s/\.compressed.*//r;
-       $expected = read_file $expected;
+       $expected = read_binary $expected;
 
-       my $decoded = unbro ((scalar read_file $test), 1_000_000);
+       my $decoded = unbro ((scalar read_binary $test), 1_000_000);
        is $decoded, $expected, "$test";
 
        open FH, '<', $test;

diff --git a/t/02-roundtrip.t b/t/02-roundtrip.t
index 3f656e18f3b700bb7706fc5984ad58599b5409de..f2c40b8dbfbf3df99d78cbf284fcf1ee74d47e96 100644 (file)
--- a/t/02-roundtrip.t
+++ b/t/02-roundtrip.t
@@ -3,14 +3,14 @@ use v5.14;
 use warnings;
 
 use Test::More tests => 114;
-use File::Slurp;
+use File::Slurper qw/read_binary/;
 
 use IO::Compress::Brotli;
 use IO::Uncompress::Brotli;
 
 for my $test (<brotli/tests/testdata/*.compressed>) {
        my ($source) = $test =~ s/\.compressed$//r;
-       $source = read_file $source;
+       $source = read_binary $source;
 
        for my $quality (9,11) {
                my $encoded = bro($source, $quality);