Fix method call to compress streams.

deven · Dec 17, 2020 · 8e486fe · 8e486fe
1 parent 13810e9
commit 8e486fe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/PDF/Data.pm b/lib/PDF/Data.pm
@@ -772,7 +772,7 @@ sub write_object {
     # For streams, compress the stream or update the length metadata.
     if (is_stream $object) {
       if ($self->{-compress}) {
-        $object = compress_stream $object;
+        $object = $self->compress_stream($object);
       } else {
         $object->{Length} = length $object->{-data};
       }