fix: Use of uninitialized value

diff --git a/gitweb.cgi b/gitweb.cgi
index 26c73958ffedc23793dd36f1cc92645c5b4ffb5b..cb033733b9ea5413fd34349b5cad79d83b0334d6 100755 (executable)
--- a/gitweb.cgi
+++ b/gitweb.cgi
@@ -17,7 +17,7 @@ use Fcntl ':mode';
 binmode STDOUT, ':utf8';
 
 my $cgi = new CGI;
-my $version =          "262";
+my $version =          "263";
 my $my_url =           $cgi->url();
 my $my_uri =           $cgi->url(-absolute => 1);
 my $rss_link =         "";
@@ -404,12 +404,13 @@ sub git_read_head {
        if (open my $fd, "-|", "$gitbin/git-rev-parse", "--verify", "HEAD") {
                my $head = <$fd>;
                close $fd;
-               chomp $head;
-               if ($head =~ m/^[0-9a-fA-F]{40}$/) {
-                       $retval = $head;
+               if (defined $head && $head =~ /^([0-9a-fA-F]{40})$/) {
+                       $retval = $1;
                }
        }
-       $ENV{'GIT_DIR'} = $oENV;
+       if (defined $oENV) {
+               $ENV{'GIT_DIR'} = $oENV;
+       }
        return $retval;
 }