summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer')
-rw-r--r--perl-install/printer/printerdrake.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index d9e1183ae..5bbcaa4b3 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -3057,14 +3057,14 @@ sub get_printer_info {
if ($printer->{PAPERSIZE}) {
$printer->{SPECIAL_OPTIONS} .=
" -o PageSize=$printer->{PAPERSIZE}";
- } elsif (($pagesize = $in->{lang}) ||
+ } elsif (($pagesize = $in->{locale}{country}) ||
($pagesize = $ENV{LC_PAPER}) ||
+ ($pagesize = $in->{locale}{lang}) ||
($pagesize = $ENV{LANG}) ||
($pagesize = $ENV{LANGUAGE}) ||
($pagesize = $ENV{LC_ALL})) {
- if ($pagesize =~ /^en_CA/ ||
- $pagesize =~ /^fr_CA/ ||
- $pagesize =~ /^en_US/) {
+ if ($pagesize =~ /US/ ||
+ $pagesize =~ /CA/) {
$pagesize = "Letter";
} else {
$pagesize = "A4";