diff options
| author | G. Branden Robinson <g.branden.robinson@gmail.com> | 2022-11-18 11:09:17 -0600 |
|---|---|---|
| committer | G. Branden Robinson <g.branden.robinson@gmail.com> | 2022-11-18 11:09:17 -0600 |
| commit | 49aff9b91d53fcddd9e1fffb0165c1e772929244 (patch) | |
| tree | d4fb1077499ca99fb578a97c583084db768136b9 /src/devices | |
| parent | 117152f87c58b861563eab3aadccf2170f93ead7 (diff) | |
| download | groff-git-49aff9b91d53fcddd9e1fffb0165c1e772929244.tar.gz | |
[gropdf]: Warn on unrecognized paper format.
* src/devices/gropdf/gropdf.pl: Throw warning if paper format is
unrecognized.
Diffstat (limited to 'src/devices')
| -rw-r--r-- | src/devices/gropdf/gropdf.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl index c2745fb17..b1e274b95 100644 --- a/src/devices/gropdf/gropdf.pl +++ b/src/devices/gropdf/gropdf.pl @@ -323,6 +323,10 @@ elsif (substr($papersz,-1) eq 'l' and exists($ppsz{substr($papersz,0,-1)})) # Note 'legal' ends in 'l' but will be caught above @defaultmb=@mediabox=(0,0,$ppsz{substr($papersz,0,-1)}->[1],$ppsz{substr($papersz,0,-1)}->[0]); } +else +{ + Warn("ignoring unrecognized paper format '$papersz'"); +} my (@dt)=localtime($ENV{SOURCE_DATE_EPOCH} || time); my $dt=PDFDate(\@dt); |