From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 23 Sep 2017 18:34:19 +0000 (+0300)
Subject: Fix bin/bro-perl
X-Git-Tag: 0.003_001~2
X-Git-Url: http://git.ieval.ro/?p=io-compress-brotli.git;a=commitdiff_plain;h=765b9391d155d213b8c67a19939879cde3e5d4c0

Fix bin/bro-perl
---

diff --git a/bin/bro-perl b/bin/bro-perl
index 45eed8e..ad35af8 100755
--- a/bin/bro-perl
+++ b/bin/bro-perl
@@ -14,7 +14,6 @@ use IO::Compress::Brotli;
 use IO::Uncompress::Brotli;
 
 GetOptions(
-    'c|custom-dictionary=s' => \(my $DICTIONARY),
     'd|decompress'          => \(my $DECOMPRESS),
     'f|force'               => \(my $FORCE),
     'h|help'                => \(my $HELP),
@@ -29,7 +28,7 @@ GetOptions(
 
 if( $HELP ) {
     say "Usage: $0 [--force] [--quality n] [--decompress] [--input filename] [--output filename]".
-        " [--repeat iters] [--verbose] [--window n] [--custom-dictionary filename] [--stream size]";
+        " [--repeat iters] [--verbose] [--window n] [--stream size]";
     exit 1;
 }
 
@@ -62,19 +61,12 @@ for ( 1..$REPEAT ) {
     binmode $ofh;
 
     if( $DECOMPRESS ) {
-        if( $STREAM ) {
-            my $bro = IO::Uncompress::Brotli->create();
-            while( read $ifh, (my $buf), $STREAM ) {
-                $decoded = $bro->decompress($buf);
-                $total_size += bytes::length( $decoded );
-                print $ofh $decoded;
-            }
-        }
-        else {
-            $encoded = read_file( $ifh );
-            $decoded = unbro( $encoded );
+        $STREAM //= 4 * 1024 * 1024;
+        my $bro = IO::Uncompress::Brotli->create();
+        while( read $ifh, (my $buf), $STREAM ) {
+            $decoded = $bro->decompress($buf);
             $total_size += bytes::length( $decoded );
-            write_file( $ofh, $decoded );
+            print $ofh $decoded;
         }
     }
     else {