gitweb: Use capturing parentheses only when you intend to capture

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index cb821b5b963b391db4dcfce5927fd6863df1eebceed15b9d0926ff70fdd95960..80475c218436f8583c50f00128df19999d4bd82393710cd2aad623d803d192ab 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -829,7 +829,7 @@ if (!defined $action) {
 if (!defined($actions{$action})) {
        die_error(400, "Unknown action");
 }
-if ($action !~ m/^(opml|project_list|project_index)$/ &&
+if ($action !~ m/^(?:opml|project_list|project_index)$/ &&
     !$project) {
        die_error(400, "Project needed");
 }
@@ -3991,7 +3991,7 @@ sub fill_project_list_info {
                            ($pname !~ /\/$/) &&
                            (-d "$projectroot/$pname")) {
                                $pr->{'forks'} = "-d $projectroot/$pname";
-                       }       else {
+                       } else {
                                $pr->{'forks'} = 0;
                        }
                }
@@ -6283,7 +6283,7 @@ XML
        # end of feed
        if ($format eq 'rss') {
                print "</channel>\n</rss>\n";
-       }       elsif ($format eq 'atom') {
+       } elsif ($format eq 'atom') {
                print "</feed>\n";
        }
 }