[groff] 21/33: src/utils/grog/grog.pl: Fix code style nits.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 67897ab106cf9304b8579b94b6959fd13efd420a
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sun Jun 23 13:10:26 2024 -0500

    src/utils/grog/grog.pl: Fix code style nits.
    
    Use whitespace adjacent to parentheses consistently through the file.
---
 src/utils/grog/grog.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/utils/grog/grog.pl b/src/utils/grog/grog.pl
index 5171e7a8d..417c1389f 100644
--- a/src/utils/grog/grog.pl
+++ b/src/utils/grog/grog.pl
@@ -89,7 +89,7 @@ sub process_arguments {
   my $optarg = 0;
 
   foreach my $arg (@ARGV) {
-    if ( $optarg ) {
+    if ($optarg) {
       push @command, $arg;
       $optarg = 0;
       next;
@@ -113,7 +113,7 @@ sub process_arguments {
       next;
     }
 
-    unless ( $arg =~ /^-/ ) { # file name, no opt, no optarg
+    unless ($arg =~ /^-/) { # file name, no opt, no optarg
       push @input_file, $arg;
       next;
     }
@@ -175,7 +175,7 @@ sub process_arguments {
 
 sub read_input {
   foreach my $file (@input_file) {
-    unless ( open(FILE, $file eq "-" ? $file : "< $file") ) {
+    unless (open(FILE, $file eq "-" ? $file : "< $file")) {
       &fail("cannot open '$file': $!");
       next;
     }
@@ -406,12 +406,12 @@ sub interpret_line {
     # `LI` is unique to mm among full-service macro packages, but
     # www.tmac muddies the waters, so omit it.  `MT` also used by man.
     if ($macro =~ /^LO$/) {
-      if ( $args =~ /^(DNAMN|MDAT|BIL|KOMP|DBET|BET|SIDOR)/ ) {
+      if ($args =~ /^(DNAMN|MDAT|BIL|KOMP|DBET|BET|SIDOR)/) {
        &push_main_package('mse');
        return;
       }
     } elsif ($macro =~ /^LT$/) {
-      if ( $args =~ /^(SVV|SVH)/ ) {
+      if ($args =~ /^(SVV|SVH)/) {
        &push_main_package('mse');
        return;
       }