Tidy

diff --git a/CGI/bug.pl b/CGI/bug.pl
index 9e189b716c8d2c7a3334582855bdcc59f47ce828..aea3fae42ddb7d7104d769fba1a3ec7031853feb 100755 (executable)
--- a/CGI/bug.pl
+++ b/CGI/bug.pl
@@ -104,7 +104,8 @@ my %handlers = (
 
             print "\n";
         },
-        Message => sub ($) { format_html( shift, Bug => $bug ); print hr . "\n" },
+        Message =>
+          sub ($) { format_html( shift, Bug => $bug ); print hr . "\n" },
         Footer => sub () { print end_html }
     }
 );

diff --git a/Emesinae/CGI/Message.pm b/Emesinae/CGI/Message.pm
index 3422fb93d20fe7c2d3b3e9cc6b47b6561837ab82..26d7f0c75866ed99cd283759fe2796104a56a3f7 100644 (file)
--- a/Emesinae/CGI/Message.pm
+++ b/Emesinae/CGI/Message.pm
@@ -155,12 +155,13 @@ sub parthdr {
 }
 
 sub format_html ($;%) {
-    my $m   = shift;
+    my $m     = shift;
     my %attrs = @_;
 
     my $bug = $attrs{Bug} || undef;
 
-    $attrs{SuppressControlReply} = 1 unless defined $attrs{SuppressControlReply};
+    $attrs{SuppressControlReply} = 1
+      unless defined $attrs{SuppressControlReply};
 
     print comment( "Message "
           . $m->{id} . ": "
@@ -177,9 +178,10 @@ sub format_html ($;%) {
     my @archives = archive_list( $m->{msgid} );
 
     if ( $m->{msgtype} eq "control-reply" && $attrs{SuppressControlReply} ) {
-        print p ( { -class => "controlreplylink" },
-                "Control reply; (" . msglink( $m, "Full Text" ) . ")" )
-          . "\n";
+        print p (
+            { -class => "controlreplylink" },
+            "Control reply; (" . msglink( $m, "Full Text" ) . ")"
+        ) . "\n";
         return;
     }