diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 1b832bca1..3f4831ed4 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -1059,7 +1059,9 @@ sub configurePrinter { my $printer = $o->{printer} ||= {}; eval { add2hash($printer, printer::getinfo($o->{prefix})) }; - $printer->{PAPERSIZE} = $o->{lang} eq 'en' ? 'letter' : 'a4'; + $printer->{PAPERSIZE} = (($o->{lang} =~ /^en_US/) || + ($o->{lang} =~ /^en_CA/) || + ($o->{lang} =~ /^fr_CA/)) ? 'Letter' : 'A4'; printerdrake::main($printer, $o, $ask_multiple_printer, sub { install_interactive::upNetwork($o, 'pppAvoided') }); } |