Bug#292622: libpdf-report-perl: Does not work with recent libpdf-api2-perl packages

[Jordan Hrycaj]

Hi,

at least for me, the following patch work. It may not be
complete, though ...

--- libpdf-report-perl-1.22.orig/Report.pm
+++ libpdf-report-perl-1.22/Report.pm
@@ -106,9 +106,9 @@
 
   # Set the width and height of the page
   my ($pageWidth, $pageHeight) =
-    @{$PDF::API2::Page::pgsz{"\L$DEFAULTS{PageSize}"}};
+    (PDF::API2::Util::page_size "\L$DEFAULTS{PageSize}") [2,3];
   ($pageWidth, $pageHeight) =
-    @{$PDF::API2::Page::pgsz{"\L$defaults{PageSize}"}}
+    (PDF::API2::Util::page_size "\L$defaults{PageSize}") [2,3]
      if length($defaults{PageSize});
 
   # Swap w and h if landscape
@@ -160,7 +160,7 @@
 
   # Default fonts
   $self->{font} = $self->{pdf}->corefont('Helvetica'); # Default font
object
-  $self->{font}->encode('latin1');
+  $self->{font}->encodeByData('latin1');
 
   # Set the users options
   foreach my $key (keys %defaults) {
@@ -264,7 +264,7 @@
   my $txt = $self->{page}->text;
   $txt->font($self->{font}, $self->{size});
   $txt->transform_rel(-translate => [$x, $y], -rotate => $rotate);
-  $txt->text_fancy($text, -color=>[$color], -underline=>$underline,
+  $txt->text($text, -color=>[$color], -underline=>$underline,
                           -indent=>$indent);
 }
 

Regards
jordan





-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]