X-Git-Url: http://git.ieval.ro/?p=io-compress-brotli.git;a=blobdiff_plain;f=bin%2Fbro-perl;h=fcd82192da7b78ee27f00066988223604cd9814b;hp=ad35af8b20a7c6307c879b4e57cdedc7a18dc452;hb=c17e7d6329e8a24e6128a9f70e2b597fce1b5b0a;hpb=d2b64400639f64f01fe3172668f65636e94b74ec

diff --git a/bin/bro-perl b/bin/bro-perl
index ad35af8..fcd8219 100755
--- 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 );