Skip Menu |

This queue is for tickets about the PDF-Create CPAN distribution.

Report information
The Basics
Id: 32251
Status: resolved
Priority: 0/
Queue: PDF-Create

People
Owner: MARKUSB [...] cpan.org
Requestors: polettix [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.08
Fixed in:
  • 1.0
  • 1.00



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
Sorry for the delay, was not aware of this site. Fixed now.