Skip Menu |

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

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

People
Owner: Nobody in particular
Requestors: jtroschke [...] imail.de
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.08
Fixed in: (no value)



Subject: get_page_size('a4l')
package PDF::Create; LINE 11: "a4L" must be "a4l" because of lower case in LINE 3 OLD CODE: sub get_page_size { my $self = shift; my $name = lc(shift); my %pagesizes = ( 'a0' => [ 0, 0, 2380, 3368 ], 'a1' => [ 0, 0, 1684, 2380 ], 'a2' => [ 0, 0, 1190, 1684 ], 'a3' => [ 0, 0, 842, 1190 ], 'a4' => [ 0, 0, 595, 842 ], 'a4L' => [ 0, 0, 842, 595 ], # better 'a4l' 'a5' => [ 0, 0, 421, 595 ], 'a6' => [ 0, 0, 297, 421 ], 'letter' => [ 0, 0, 612, 792 ], 'broadsheet' => [ 0, 0, 1296, 1584 ], 'ledger' => [ 0, 0, 1224, 792 ], 'tabloid' => [ 0, 0, 792, 1224 ], 'legal' => [ 0, 0, 612, 1008 ], 'executive' => [ 0, 0, 522, 756 ], '36x36' => [ 0, 0, 2592, 2592 ], ); if (!$pagesizes{$name}) { $name = "a4"; } $pagesizes{$name}; }
Fixed, get_page_size is now case insensitive.