Fix bug in pdf_file_data() mangling xref table.

deven · Dec 14, 2020 · ba3ad25 · ba3ad25
1 parent 1351b84
commit ba3ad25
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/PDF/Data.pm b/lib/PDF/Data.pm
@@ -228,7 +228,7 @@ sub pdf_file_data {
   # Add cross-reference table.
   my $startxref   = length($pdf_file_data);
   $pdf_file_data .= sprintf "xref\n0 %d\n", scalar @{$xrefs};
-  $pdf_file_data .= @{$xrefs};
+  $pdf_file_data .= join "", @{$xrefs};
 
   # Save correct size in trailer dictionary.
   $self->{Size} = scalar @{$xrefs};