Actually calculate the length of merged content streams.

deven · Jun 23, 2022 · 95ce840 · 95ce840
1 parent 32c34c3
commit 95ce840
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/PDF/Data.pm b/lib/PDF/Data.pm
@@ -334,6 +334,7 @@ sub merge_content_streams {
 
   # Concatenate stream data and calculate new length.
   my $merged = { -data => join("", map { $_->{-data}; } @{$streams}) };
+  $merged->{Length} = length($merged->{-data});
 
   # Return merged content stream.
   return $merged;