| Subject: | Can't insert a page in to a PDF with 8 pages |
| MIME-Version: | 1.0 |
| X-Mailer: | MIME-tools 5.418 (Entity 5.418) |
| Content-Type: | text/plain; charset="utf8" |
| Content-Disposition: | inline |
| Content-Transfer-Encoding: | binary |
| X-RT-Original-Encoding: | utf-8 |
| Content-Length: | 646 |
The below script adds the 9th page at the end instead of between pages 1
and 2. Change the number 8 to a 7 and the insertion occurs properly.
This seems to be a glitch in PDF::API2::Basic::PDF::Pages::add_page() in
the code that keeps there from being too many pages in one container;
look for "if ($#path <= 0 && $m >= 7)".
use PDF::API2;
$pdf = PDF::API2->new;
my $font = $pdf->corefont('Times-Roman');
sub mark {
my ( $page ) = @_;
my $t = $page->text;
$t->font( $font, 10 );
$t->translate( 20, 40 );
$t->text( $pdf->pages );
}
for (1..8) {
mark $pdf->page;
}
mark $pdf->page(2);
$pdf->saveas( "foo.pdf" );