Replace File::Slurp with File::Slurper

[io-compress-brotli.git] / bin / bro-perl

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 );