diff options
Diffstat (limited to 'src/devices')
-rw-r--r-- | src/devices/gropdf/gropdf.pl | 4 | ||||
-rw-r--r-- | src/devices/gropdf/pdfmom.pl | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl index d8a21e25..0ed81a4a 100644 --- a/src/devices/gropdf/gropdf.pl +++ b/src/devices/gropdf/gropdf.pl @@ -207,7 +207,7 @@ LoadDesc(); my $unitwidth=$desc{unitwidth}; my $papersz=$desc{papersize}; -$papersz=$fpsz if $fpsz; +$papersz=lc($fpsz) if $fpsz; $env{FontHT}=0; $env{FontSlant}=0; @@ -232,7 +232,7 @@ if (substr($papersz,0,1) eq '/' and -r $papersz) if ($papersz=~m/([\d.]+)([cipP]),([\d.]+)([cipP])/) { - @defaultmb=@mediabox=(0,0,ToPoints($1,$2),ToPoints($3,$4)); + @defaultmb=@mediabox=(0,0,ToPoints($3,$4),ToPoints($1,$2)); } elsif (exists($ppsz{$papersz})) { diff --git a/src/devices/gropdf/pdfmom.pl b/src/devices/gropdf/pdfmom.pl index a03bc83d..8ba3c614 100644 --- a/src/devices/gropdf/pdfmom.pl +++ b/src/devices/gropdf/pdfmom.pl @@ -26,6 +26,8 @@ use strict; my @cmd; my $dev='pdf'; +$ENV{PATH}=$ENV{GROFF_BIN_PATH}.':'.$ENV{PATH} if exists($ENV{GROFF_BIN_PATH}); + while (my $c=shift) { if (substr($c,0,2) eq '-T') |