gbranden pushed a commit to branch master
in repository groff.
commit 126970188e5bcf3c590aaab213dfb8d6086c8912
Author: G. Branden Robinson <[email protected]>
AuthorDate: Fri Oct 16 10:33:09 2026 -0500
contrib/mm/mmroff.pl: Use Perl more idiomatically.
* contrib/mm/mmroff.pl: Use `or` as short-circuit operator rather than
`||`; the former has lower precedence and so is less likely to
surprise the programmer.
---
contrib/mm/ChangeLog | 6 ++++++
contrib/mm/mmroff.pl | 2 +-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 00609b0ba..4bc95c18e 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,9 @@
+2026-10-16 G. Branden Robinson <[email protected]>
+
+ * mmroff.pl: Use Perl more idiomatically. Use `or` as
+ short-circuit operator rather than `||`; the former has lower
+ precedence and so is less likely to surprise the programmer.
+
2026-10-16 G. Branden Robinson <[email protected]>
* mmroff.pl: Clarify error diagnostics. When dying on the
diff --git a/contrib/mm/mmroff.pl b/contrib/mm/mmroff.pl
index e202b90b9..d557193bf 100644
--- a/contrib/mm/mmroff.pl
+++ b/contrib/mm/mmroff.pl
@@ -95,7 +95,7 @@ my (%cur, $rfilename, $imacro, @out, @indi);
my $max_height = 0;
my $max_width = 0;
open(MACRO, "$first_pass 2>&1 |")
- || Die("cannot run pipeline \"$first_pass\": $!");
+ or Die("cannot run pipeline \"$first_pass\": $!");
while(<MACRO>) {
if (m#^\.\\" Rfilename: (\S+)#) {
# remove all directories just to be more secure
_______________________________________________
groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
