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};
}