Subject: | Rotate does not work (with patch) |
The attached file pdfcreate.pl has issues due to the Rotate, while the
attached patch solves the problem (it has been produced starting from
version 0.08).
Regards,
Flavio.
Subject: | pdfcreate.pl |
#!/usr/bin/perl
use strict;
use warnings;
use PDF::Create;
my $pdf = new PDF::Create(
'filename' => 'mypdf.pdf',
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Fabien Tassin',
'Title' => 'My title',
'CreationDate' => [localtime],
);
# add a A4 sized page
my $root =
$pdf->new_page('MediaBox' => $pdf->get_page_size('A4'), Rotate => 90);
$root->line(0, 0, 612, 792);
$pdf->close();
Subject: | PDF-Create.patch |
+++ /opt/perl/lib/site_perl/5.8.8/PDF/Create.pm 2008-01-11 16:19:27.013313376 +0100
+++ /opt/perl/lib/site_perl/5.8.8/PDF/Create.pm.patched 2008-01-11 16:19:37.013313376 +0100
@@ -584,7 +584,8 @@
$$content{$K} = $self->array(@$l);
}
}
- $$content{'Rotate'} = $page->{'rotate'} if defined $page->{'rotate'};
+ $$content{'Rotate'} = [ number => $page->{'rotate'} ]
+ if defined $page->{'rotate'};
if ($type eq 'Page') {
$$content{'Parent'} = $self->indirect_ref(@{$page->{'Parent'}{'id'}});
# Content