gitweb: squelch "uninitialized value" warning

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 9956e5991d009314fd0577b7f6ae10f3afc363a1c60de404b7b2d50bc28ca0d5..40730e11d815b9c4291ab516ee0bc24e43eac2b6a3d285a2c8360593b37c2e52 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -7577,7 +7577,7 @@ sub git_object {
                        git_cmd(), 'cat-file', '-t', $object_id) . ' 2> /dev/null'
                        or die_error(404, "Object does not exist");
                $type = <$fd>;
-               chomp $type;
+               defined $type && chomp $type;
                close $fd
                        or die_error(404, "Object does not exist");