Fix automatic setting of -compress flag.

deven · Feb 17, 2022 · ceea208 · ceea208
1 parent b587f4f
commit ceea208
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/PDF/Data.pm b/lib/PDF/Data.pm
@@ -780,8 +780,8 @@ sub filter_stream {
 
   # Decompress stream data if necessary.
   if ($filters[0] eq "/FlateDecode") {
-    # Remember that this PDF file is using compressed streams.
-    my $self->{-compress} = 1;
+    # Remember that this PDF file is using compressed streams, unless -compress flag is already set.
+    $self->{-compress} //= 1;
 
     # Decompress the stream.
     my $zlib = new Compress::Raw::Zlib::Inflate;