[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[groff] 18/21: [gropdf]: Warn on unrecognized paper format.
From: |
G. Branden Robinson |
Subject: |
[groff] 18/21: [gropdf]: Warn on unrecognized paper format. |
Date: |
Fri, 18 Nov 2022 13:47:54 -0500 (EST) |
gbranden pushed a commit to branch master
in repository groff.
commit 49aff9b91d53fcddd9e1fffb0165c1e772929244
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Fri Nov 18 11:09:17 2022 -0600
[gropdf]: Warn on unrecognized paper format.
* src/devices/gropdf/gropdf.pl: Throw warning if paper format is
unrecognized.
---
ChangeLog | 5 +++++
src/devices/gropdf/gropdf.pl | 4 ++++
2 files changed, 9 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index d45fb10f0..8d0c82ae5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-11-18 G. Branden Robinson <g.branden.robinson@gmail.com>
+
+ * src/devices/gropdf/gropdf.pl: Throw warning if paper format is
+ unrecognized.
+
2022-11-18 G. Branden Robinson <g.branden.robinson@gmail.com>
* src/devices/gropdf/gropdf.pl (Msg): Align more closely with
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);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [groff] 18/21: [gropdf]: Warn on unrecognized paper format.,
G. Branden Robinson <=