summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
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') });
}